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Computing Today is constantly on 


the look-out for well written ar- 
ticles and programs. If you think 
that your efforts meet our stan- 
dards, please feel free to submit 
your work to us for consideration. 

All material should be typed. 
Any programs submitted must be 
listed (cassette tapes and discs will 
not be accepted) and should be ac- 
companied by sufficient documen- 
tation to enable their implementa- 
tion. Please enclose an SAE if you 
want your manuscript returned, all 
submissions will be acknowledg- 
ed. Any published work will be 
paid for. 

All work for consideration should 
be sent to the Editor at our Charing 
Cross Road address. 
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Just wait till you see what we've got for 
you this month! Something a bit 
classical... 
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LEARNING FORTH 
gi 5 ig He SA reer 37 


This month we explain a bit more 
about defining words and look at a 
way to dimension and use arrays, just 
like BASIC. Finally, we have an 
aMAZEing example. 
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rieve that 20K program you've just 
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ZX81 - FORTH ROM 


with multi-tasking 














Runs more than 10 tasks at once. Schedule tasks 
to run from 50 times per second to once a year. Ideal 
for control purposes. Three times faster than fig- 
FORTH, but fig compatible. Available as a ‘fit-it- 
yourself’ EPROM, with an extensive manual for £29 
plus VAT. Some ready-converted ZX81's available. 


Coming Soon! 


FORTH-|I/O cartridge for Spectrum £59 plus VAT. 
Ask for details 








David Husband 


2 Gorleston Road, Branksome, 
Poole BH12 1NW 
Telephone: 0202 302385 








A home computer is an expensive toy; and, if playing 
games is all you do with it, a toy is all itis. | 

Now, using the New Personal Computer 
Superlearning System (PCSS) you can have fun with 
your micro and learn something at the same time. 

PCSS language courses comprise 12 lessons on 
3 audio cassettes used in conjunction with a fourth 
software cassette, to add anew dimension to learning. 

Initially the software package enables you to see 
the words you’re learning; then, as your vocabulary 
develops, it will test your skill in your new language. 

Anyone can learn this way — no previous knowledge 
of the language is required. The unique PCSS method 
develops your overall learning and memory skills ina 
YEW Car- Leow ole) Came -it-bdlarem-lalem-lal(e)\c- le)» 

Each PCSS language pack - French, German or 
Spanish - contains a comprehensive booklet detailing 


COMPUTERISED EDUCATION SYSTEMS 


(PCSS software is compatible with the ZX81 (16K), ZX Spectrum, BBC Micro, 
Acorn Elektron Micros.) 
Each pack comes with a full money back guarantee if not completely satisfied. 





YOUR MICRO COULD TEACH YOU 


A THING OR TWO ABOUT THE FRENCH... 
..OR THE GERMANS...OR THE SPANISH 










TRANSFORMS THE COMMODORE 64 


INTO A FULL-FEATURED AND 

Uy, PROFESSIONAL DATABASE 
SYSTEM! WITH uP TO 1000 

CHARACTERS PER RECORD ON UP 

TO 4 SCREENS... AND UP TO 

128 ITEMS PER RECORD, 


DEFINABLE AS KEY, TEXT> 
NUMERIC, CONSTANT, RESULT OR DATE... IN FILES OF UP TO 16M CHARACTERS! 
SUPERBASE EVEN HAS SPREADSHEET AND CALCULATOR CAPABILITY, CALENDAR 

PROGRAM OPTIONS, SORTING/SEARCHING, FULLY DEFINABLE OUTPUTS... SUPERBASE 64 
IS ESSENTIAL IF YOU WANT THE MOST FROM YOUR 64! SUPPLIED ON CBM 154] DISK 
@ OUR PRICE ONLY $39<25 £88! 

NOW AVAILABLE ON CARTRIDGE, 

VIZAW RITE 64 ccctene Coecoss nor 
PROCESSOR, WITH ON-SCREEN 

MEMORY FEATURES... AND SUPPORTS VIRTUALLY ANY PRINTER! WITH A COMPREHENSIVE 
AND EASY-TO-FOLLOW USER MANUAL, VIZAWRITE OFFERS THE ULTIMATE IN PERSONAL 
COMBINED WITH VIZASPELL (OUR PRICE £99766-£85!). 

@ OUR PRICE ONLY $3925 £68! 

CONCEPT... A COMPLETE PROGRAM 

DEVELOPMENT PACKAGE, THAT'S 

MASTER HAS 85 NEW COMMANDS... AND BASIC IV Too! PLUS PROGRAMMER'S TOOLKIT, 
MACHINE CODE MONITOR, BUSINESS BASIC, KEYED DISK ACCESS, SCREEN MANAGEMENT, 
CONTROL», STRING FUNCTIONS, DISK DATA COMPRESSION, SCREEN PLOTTING, SCREEN 
DUMP, OPTIONAL SOFTWARE PROTECTION KEY, AND MORE... IN FACT EVERYTHING YOU 


FUNCTIONS, EASY INPUT FROM WORDPROCESSOR/DATA FILES, BOTH MENU-DRIVEN AND 
WITH EXCELLENT TUTORIAL/REFERENCE MANUAL. EX-STOCK NOW! 

VIZAWRITE 64 IS A HIGH- 

FORMATTING, THAT TAKES FULL ADVANTAGE OF THE 64'S COLOUR, GRAPHICS ANO 
COMPUTER WORD PROGESSING! ALSO AVAILABLE ON DISK (OUR PRICE £79745 £65!), OR 
ce JVI t r ‘ { MASTER 64 IS A TOTALLY NEW 
as e AVAILABLE NOW FOR THE CBM 64. 

USER-DEFINABLE INPUT ZONES, REPORT GENERATOR, 22-PLACE ARITHMETIC, DATE 

NEED TO PROGRAM YOUR 64 TO TOP PROFESSIONAL STANOARDS! MASTER 64 COMES WITH 


A FULL USER REFERENCE MANUAL, QUICK REFERENCE GUIDE AND DEMO PROGRAMS. ALSO 
AVAILABLE FOR CBM 700 (£339.25) aNd CBM 4032/8032/8096 (€35%25 £225!). 


@ SPECIAL OFFER PRICE Steet £115! 


THESE ARE JUST SOME OF OUR FINE SOFTWARE PRODUCTS FOR COMMODORE COMPUTERS... 
PLEASE TELEPHONE OR WRITE FOR FREE DATA SHEETS! PRICES SHOWN INCLUDE 15% vat 
AND ARE CORRECT AT TIME OF GOING TO PRESS. ORDER BY POST/TELEPHONE/PRESTEL + 
USING CHEQUE, ACCESS, BARCLAY CARD OR OFFICIAL ORDER. TELEPHONE 01-546-7256 
FoR SAME-DAY DESPATCH! PosT FREE EXCEPT ON CREDIT/OVERSEAS ORDERS. (REF A23) 


Calco Soitware 


LAKESIDE HOUSE, KINGSTON HILL, SURREY KT2 7QT TEL 01-546-7256 









the 12 audio lessons and the function of the interactive 
software. Additionally the booklet expands on the 
broader benefits of the PCSS method. 

At only £29.95 per pack PCSS costs less than other 
home language courses yet it offers much more in 
terms’of education and enjoyment. 

Complete the coupon below and try PCSS for 
yourself — you'll be amazed what your micro can 
teach you. 

















| eee ey Uta 
Send your cheque or Postal Order for £29.95 made payable to: 
MDA Modon Associates Limited, 561 Upper Richmond Road West, 
| London SW14 7ED. i 


or, alternatively telephone Teledata 01 200 0200 and quote your Visa, 
Diners Club, Access or American Express number. 


Tick which Audio/software package you require. (Prices include VAT. 





Add £1.45 for postage and packing on each order.) 
Please supply the following Audio/software Packages 

GERMAN [] SPANISH [] [ 

Name 


Address 


| FRENCH [] 


Machine Type Memory Size 


a 
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Spectravision Quickshot 
deluxe joystick (BBC compatible) 


Now, Microstyle offer you the chance to use a joystick 
where joysticks have never been used before! Operating 
directly through the existing user-ports on your BBC 
model B microcomputer and available for use with al 
Acornsoft and most other keyboard controlled games 
even Planetoids — these joysticks include a 
machine-code ‘driver program’ on tape, which converts 


keyboard commands to remote control operation for 
maximum enjoyment. 


only £19.95 inc vat 


for mail order please add 75p P&P 


The Aylesbury Computer Centre 
92 Friar’s Sq., Aylesbury. 


Telephone: Aylesbury (0296) 5124 


The Bath Computer Centre 


29 Belvedere, Lansdown Road, Bath. 
Telephone: Bath (0225) 334659 


The Daventry Computer Centre The Newbury Computer Centre 
67 High St., Daventry. 47 Cheap Street, Newbury. 
Telephone: Daventry (03272) 78058 


Telephone: Newbury (0635) 41929 


BEFORE THEY DO 


5 








News: General products 
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The powerful Spectravideo range of 
personal computers, currently enjoy- 
ing a huge sales success in the US, is 
now available for the first time in the 
UK. Distributed exclusively by CK 
Computers of Weston-super-Mare, 
Avon, the Spectravideo range com- 


prises two models, the SV318 and 
SV-328. 

A major selling feature of both 
Spectravideo machines is their 


adoption of the MSX specification, 
which is expected to become the 
industry standard tor home com- 
puters. MSX uses Microsoft BASIC as 
its resident interpreter and gives 
access to a wealth of computer 
games and other personal c omputer 
software. In addition, the SV-318 and 
the SV-328 are also CP/M compat- 
ible, which means that as users 
demands become more sophis- 
ticated they can take advantage of 
the comprehensive range of software 
programs written for CP/M such as 
Wordstar and Visicalc. 

A further very important factor is 
that Spectravideo have a range of 15 
add-on peripherals including RAM 
expansion cards, floppy disc drive, 
graphics tablet and printer. All of 
these are available now from CK 
Computers, which makes a nice 
change from other makes. 

The SV-318 at £173 complete 
with data cassette is extremely com- 
petitively priced for a personal com- 
outer with these features and a 
memory capability of 32K RAM 
expandable to 144K RAM and 32K 
ROM expandable to 96K ROM. The 
SV-318 also has a joystick buiit into 
the keyboard, another unique fea- 
ture in this price range. 


ae 
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For the professional businessman 
the model SV-328 (priced at £239 
complete with data cassette, 80K of 
RAM. expandabl e to 256K and 48K 
ROM expandable to 96K) represents 
a long term investment which allows 
memory to grow as the users require- 
ments increase. Main features 
include an 87-key keyboard, 80- 


column display and numeric keypad, 


and 256 by 192 pixel screen resolu- 
tion. CK Computers Ltd are at 6 
Devonia House, High Street, Worle, 
Weston-super-Mare, Avon BS22 OJR 
(telephone 0934 516246). 
Computing Today will shortly be 
receiving a Spectravideo computer 
for review. Watch these pages! 


DAM CLEVER 


Linear Graphics Ltd have announ- 
ced a £450 plotter for personal com- 
puters that employs new linear motor 
and optical feedback technology to 
achieve repeatable 0.2mm accuracy 
over the whole of the plotting area. 
Known as the Beaver, the plotter is 
the result of an intensive develop- 
ment and production engineering 
program at Linear Graphics that has 
spanned the past year or so. 





The Beaver has a Centronics 
interface as standard (RS232 
optional), and can therefore be used 
with practically any computer. 
Special software is available, at 
additional cost, for the BBC models 
A and B, and Apple Il and Ile 
machines. This software is called 
‘Interceptor and has been de- 
veloped concurrently with the plotter 
by Linear Graphics. 

Interceptor is a powertul routine 
that intercepts graphic commands 
for plotting and drawing from BASIC 
and routes them either to the screen 
or the plotter as required by the user. 
As a result, graphics programs al- 
ready written for the BBC or Apple 
PCs can run with the Beaver with 
little or no modification. 

The combination of a universal 
pen holder and a PEN CHAN IGE 


command allows most popula 


D 


‘Roller Ball’ or fibre-tipped pens to be 
used. The PEN CHANGE command 
causes the pen holder to move to a 
pen change position on the bed 
making it very easy for the user rto set 


the pen at the correct height in the 
holder. 

The Beaver is a flat bed machine 
with a plotting range of 190 x 272 
mm (A4) and will draw on paper, 
transparencies for overhead pr 
tion or even on the backs ot 
envelopes! The paper, or trans- 
parency, is held in position by 
magnetic rubber strips. Accuracy is 
better than 0.2 mm regardless of the 
distance moved. 

At the right-hand edge oe the 
plotting bed there are a number ol 
switches for manual contro] of ‘the 
plotter. These include North, South, 
East, West, Pen Down, Pen ue and 
Line/Local. 

The Beaver measures 302 x 38! 
x 97 mm and weighs in at only g kg. 
Further information can be obtaine =a 
from Linear Graphics ltd, 34a Brook 
Road, Rayleigh Weir Industrial 
Estate, Rayleigh, Essex (telephone 
0268 741322). 


THE SEEING EYE 4 


A low cost video-camera-to- 
computer interface aimed at the 
educational and semi- professional 
user has recently been launched by 
Educational Electronics. The inter- 
face accepts signals from a variety of 
sources such as a video camera, 
VHS player and video disc. It can 
digitise an image with a resolution of 
220 (horizontal) by 312 (vertical) pix- 

els with 64 levels of grey. The unit 
has wide applications in the fields of! 
art, design, science, robotics and 
technology. 

The low cost of the Video Inter- 
face has been made possible by 
replacing many functions usually 
performed by hardware with appro- 
priate software. This also greatly 
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enhances flexibility as the software 
can enable various parts of the 
image to be selectively scanned, 
giving more detail or detecting rapid 
movement in certain defined areas. 
Trade-ofts can also be made be- 
tween computer memory size, num- 
ber of pixels scanned and the 
number of bits per pixel | (represent- 
ing the intensity) stored in memory. 
The information can then De dis- 
played on a monitor, saved to disc or 
processed to extract specitic infor- 
mation (such as area and perimeter 
analysis, shape recognition etc.) In 
addition the ability to attribute a 
specific colour to a particular inten 
sity (ie the use of ‘false colour) can 
be used to highlight certain features 
ot the image. 

The Interface can be used on vir- 
tually any micro with a user port. The 
init comes complete with mains 
power! supply, extensive documenta- 
tion, software support and a connect- 
ing lead for the BBC Model B, RML 
380/480Z or Apple user port. The 
cost is £174 (excluding VAT) and 
turther details can be obtained from 
Educational Electronics, 30 Lake 
Street, Leighton Buzzard, Beds LU7 


8RX (telephone 0525 373666). 


MINI-MODEM 
Tech-Nel Data Products Limited has 
launched a low cost ultra-miniature 
short-range modem, the SRM-6, 
which costs about one quarter of the 
price of an equivalent conventional 
modem and measures just 4.5 x 2.2 
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eile entimetres. The SRM-6 is 
| for short haul data transmission, 
up to 35 kilometres, and needs no 
AC power supply or batteries. It is 
seek extremely suitable for use 
1 large office and factory 
ae, eXes, 
The SRM-6 plugs directly into 
standard CCITT V-24/RS-232C 
terminals or computer digital inter- 
sei connectors. It takes its power 
from signals emitted by the terminals 
and d from transmit and receive 


Sere so that no external power 
source is required. Data is transmit- 
ted in full duplex and for wire 


asynchronous modes over uncon- 
ditioned telephone lines at any rate 
up to 19,200 bps. 

SRM-6 modems are available by 
mail order from Tech-Nel in bubble- 
packed sets of two at prices from 
£140 per pair, or even less from 
quantity en tai Tech-Nel Data 
Products Ltd are at 8 Haslemere 
Way, Banbury, Oxon OX16 8TY 
(telephone 0295 65781). 


> 
a 





CONSUMER NEWS 





DON’T WASTE YOUN 


Y= 


Printing out directly from a ——_ 
to a printer ties up the computer, 
often when you most need it. The 
new compact Microbuffer from Inmac 
can store up to 64K bytes (or approx- 
imately 30-40 pages of A4 text) in its 
nemory as fast as the computer can 
dump it. This is then fed into the prin- 
ter at its slower rate, completely free- 
ing the computer to do other 
operations. 

The Microbuffer is compatible 
with most microcomputers including 
IBM PC, Apple, TRS-80 and with 
leading manufacturer Ss printers such 
as Epson, NEC, Diablo, C. Itoh and 
Centronics. It can also be used with 
most makes of plotters and modems. 
No modifications are required to the 
existing software and connection is 
by standard plugs and cable 

There are two versions of the 
Microbuffer available which both 
have a data transfer rate of 4000 
cps and cost £225 each (including 
an AC adaptor). The parallel version 
comes with a 2 m buffer-to- printer 
cable. The serial version uses stan- 
dard RS232 (V24) cable interfaces, 
has two handshake modes, nine 
baud rates and a bypass feature for 
instant printer access. 

As with all Inmac products, the 
Microbutfer comes with a full one 
year guarantee and is available on a 
30 day risk-free trial period and with 
next day delivery. Full details can be 
found in Inmac’s full colour cata- 
logue which is available free from 
Inmac (UK) Limited, Davy Road, 
Astmoor, Runcorn, Cheshire WA7 
1 OF (telephone; 09285 67551). 


PODS DOWN IN PRICE 


Oxford Computer Systems have 
reduced the price of Interpod — their 
interface system for the Commodore 
64 — to £99.95. 

Interpod is an intelligent interface 
that provides the Commodore 64 
with both RS232 and IEEE interface 
capabilities. Thus users of Com- 
modore’s latest home computers are 
able to take advantage of the wide 
range of peripherals such as dual 
disc drives and daisy-wheel printers, 
and hence extend the capabilities of 
their system in a low-cost and power- 
ful manner. 

Interpod is available from Oxford 
Computer Systems, from the UK net- 
work of Commodore dealers or from 
the world-wide network of dealers 
and distributors for £99.95. For 
further information please contact 
Oxford Computer Systems Limited, 
Hensington Road, Woodstock, 
Oxford (telephone 0993 8127700). 
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MicroVailue 80-BUS MULTIBOARDS 












a a » Were GM811—CPU Board 
we if —_ 2 iia <<" . Poets ees ” Be 
1 aS is? a! t nee te er cme te. oe deny ea * 4MHzZ80A CPU 

nf 1, Fee a a ae OR ign ee * 4'Bytewide’ Memory Sockets 
* 2x8-Bitinput/Output Ports 
* 8 Bitinput Port 


* RS232 Serial Interface C4125 
* Cassette Recorder Interface 


GM803—EPROM/ROM 
Board 


* Up to 40K of Firmware 
* 2708 or 2716 EPROMS €65 
* Page Mode Operations 
























6ms13- CPU/64K RAM 
Board 


GM812—Video 
Controller Board 
































* 4MHzZZ80AC.P.U. * 64K Dynamic RAM * 80 Charactersx25 Line Display Format GM802—64K RAM 
* RS232Interface * Two8-Bitl/O Ports * On-board Z89A Microprocessor 
* Cassette Interface * Buffered Keyboard Input Boa rd 


* Extended & Page Addressing Modes 


* CP/MCompatible 
Monit £225 


* Programmable Character Generator 


* 160x75 Pixel Graphics 
* Light Pen|Input C125 


* 64K Dynamic RAM 
* 4MHz Operation 


%* RAM Disable Function $4125 
* Page Mode Operation 


MP826-—Static RAM 
Board 


* 32K Static RAM 


ae oe i ‘ * Battery Backup C225 
Ne ae we fe | * Page Mode Operation 

, aed Si 
aah rif 23 EV814—IEEE488 (GPIB) 


be a BS, 


i Controller 
* Cost Effective Controller 
GMs16— Multi 1/0 
Board 


* Comprehensive Software 
* 61/O Ports 


Supplied 
* Fulllmplementation £4140 
* Easy To Use 
* 4Counter/Timer Channels 
* On-Board Real Time Clock 


eli Key 
* Battery Backup eyboard 
oleae £125 


* User Definable Function Keys 


* Numeric Keypad £85 
* Cursor Control Keys 


GM839-—Prototyping 
Board 


* FibreglassP.C.B. 
* 80-BUS Signal Identification 


* High Density!C 
Capability £412.50 


/ MULTIBOARC COMPUTERS } 
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GM829—Disk 
Controller Board 


* Up To 4 Mixed 5.25 & 8" Drives 

* SASI Hard Disk Interface 

* Single & Double Density Operation 
* Single & Double Sided Drive Support 


* Supports 48 and 
96 TPI Drives 4145 









































REP OS 


PLUTO—Colour 
Graphics Board 


* On-Board 16 Bit Microprocessor 
* 640x576 Bit Mapped Display 
* 192K Of Dual Ported RAM 


* Comprehensive £499 
On-Board Software 


CLIMAX—Colour 
Graphics Board 














































GM833—RAM- DISK 




















* 256x256 Pixel Display HF Version 
Board * 16 Colours . 
* Virtual Disk Operation * 542K Dynamic RAM * Ultra-fast Vector & C4 99 Allthe boards and components in the 80-BUS 
* Port Mapped For Easy Interface Software Character range are fully compatible and offer a very 
Generation flexible and cost effective solution to your 







* Over 10 Times Faster 

Thana Floppy Disk 
Please note: This board cannot be used asa 
conventional RAM board 


* Light Pen Input UHF & RGB Version 


* UHF or RGB Outputs ¢220 


computer needs. For further information about 
the 80-BUS range contact your nearest 
MICROVALUE dealer. 
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oValue - MicroValue 






Quantum 
System 


2000 















Phoenix ! 
P12 
Monitor 


Ahigh quality 12" data display monitor, 
ideal for Gemini systems. The P12is 
availablein both green and 


amber phosphor versions and £95 
has aresolution of 2OMhz. 





Power Supplies, 


Mother Boards 
& Frames 


* GM807 3A Power Supply £40.00 
* GM817 6ASwitch Mode PS.U. £75.00 
* GM843 10ASwitchModePS.U. £95.00 
* GM656 3Slot Motherboard £5.00 
* GM654 5SlotMotherboard £6.00 
* GM655 8Slot Motherboard £10.00 
%* MP840 14SlotMotherboard £47.00 
* GM662 5BoardFrame £50.00 
* GM610 19" Frame £37.50 





Galaxy 2 

“| would place the Galaxy atthe 
top of my list” 

(Computing Today, April 1983) 


* Twin Z80A Processors 

* CP/M 2.2 Operating System 
* 80x25 Video Display 

* 64K Dynamic Ram 

* Light Pen Interface 

* Up to1.6Mhz Disk Capacity 
* Serial RS232 Interface 

* Parallel interface 

* Numeric Keypad 

* Definable Function Keys 

* Cassette Interface 

* 12" Monitorincluded 


from £1495 


COMPUTING TODAY FEBRUARY 1984 







Computerise 
Without Compromise 


* 80-BUS Construction 

* Serial & Parallel interface 
* Stylish Design 

* Up To 2.4Mhz Disk Capacity 
* Up ToThree 5.25" Drives 

* FullyExpandable 

* Twin Z80A Processors 

* CP/M Operating System 

* 64K Dynamic Ram 

* Definable Function Keys 


Quantum £1940 


Gemini Multinet 


The Gemini Muitinet enables as many 
people as possible to have access to their 
own microcomputer with mass storage and 
printer facilities for the lowest possible cost. 
This is achieved by providing a central 
‘fileserver’ fitted with a Winchester hard disk 
unitand printer interfaces, in conjunction 
witha method of interconnecting upto 
thirty-one workstations to the fileserver. The 
fileserver and each station are fitted with the 
Gemini GM836 network interface board. 

A Micropolis 800K floppy disk crive is 
incorporated inthe fileserver providing 
backup forthe hard disk. 


GM910 Galaxy 4 Multinet 





5.4Mibyte fileserver £2600 
GM912 Galaxy 4 Multinet 
10.8 Mibyte tileserver £2850 
GM909 Galaxy 4 Multinet 
workstation £650 


Both fileservers and workstations aie supplied 
complete with VDU’'s; the operating software 
is suppliedwith the fileserver. 


Micro 





BUY FROM THE 
COMPUTER 
PROFESSIONALS 


MICROVALUE 
DEALERS: 


AMERSHAM, BUCKS 
Amersham Computer Centre, 
18 Woodside Road, 

Tel: (02403) 22307 


BRISTOL 
Target Electronics Ltd., 16 Cherry Lane. 
Tel: (0272) 421196 


EGHAM, SURREY 
Electrovalue Ltd., 
28 St. Judes Road, Englefield Green. 
Tel: (07843) 3603 


LEEDS 

Leeds Computer Centre, 

55 Wade Lane, Merrion Centre. 
Tel: (0532) 458877 


LONDON W2 
Henry's Radio, 404 Edgware Road. 
Tel: 041-402 6822 


LONDON SW11 

OFF Records, 

Computer House, 58 Battersea Rise, 
Clapham Junction. 

Tel: 04-223 7730 


MANCHESTER M149 
EV Computing, 700 Burnage Lane. 
Tel: 061-431 4866 


NOTTINGHAM 

Computerama, (Skytronics Ltd.) 
357 Derby Road. 

Tel: (0662) 781742 


Telephone orders welcome 


Bari em Access 





All prices are exclusive of VAT 
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REAL value — from the Professionals 


News: Commercial software 


SOFT WARES 





BRAIN(STORM), NOT 
BRAWN ©” 


This magnificent specimen of 
humanity is Mike Liardet, and he is 
the co-author of BrainStorm, an 
‘ideas processor in the same way 
that a word processor processes 
words and a spreadsheet processes 
numbers. I suppose that makes him a 
bit cleverer than the rest of us mor- 
tals, but frankly I feel that anyone 
who volunteers for a photograph like 
this isn't dealing with a full deck, if 
you know what! mean. Computing 
Today is, at this very moment, pre- 
paring a review of this software 
package, and I suspect other 
people may be working a report of 
Mr. Liardet's mental state. 

That whirring noise is Rodin 
spinning in his grave. 


MORE DISCS FROM 


MOLIMERX 


Molimerx are pleased to announce 
that they have been appointed sole 
distributors for CP/M 2.2 for the 
Tandy Model 4 outside the United 
States. This version from Montezuma 
Micro is a full CP/M with the original 
Digital Research utilities, plus a num- 
ber of others. 

Of particular importance is a file 
which enables this rele to interlace 
with 22 other formats of CP/M. 
Additionally, a utility is included 
which converts an area of RAM into a 
pseudo disc drive. Communications 
and terminal software are also 
included. The present Tandy owner 
will be particularly pleased that an 
extremely easy Format and Backup 
utility is also included. 

This version of CP/M is intended to 
fill the gap in time pending the issue 
of the CP/M being written for Tandy 
by Digital Research. If, when that is 
released, it is found to be superior to 
the Montezuma version, then the lat- 
ter will be discontinued. On the other 
hand if, as it rather appears at the 
moment, the Montezuma is superior 
to the Tandy, then Molimerx will 
stock both. 

Molimerx have also concluded a 
licensing agreement with Logical 
Systems Incorporated of Milwaukee, 
United States, the publishers of 
LDOS, the disc operating system for 
the Tandy Model I, Model III and 
Model 4 machines. This new agree- 
ment will enable Molimerx to manu- 
facture in the United Kingdom 
products to be sold worldwide outside 
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of the continental USA. 

The agreement will also enable 
Molimerx to make a major break- 
through in pricing. Henceforth all LSI 

products, includin g LDOS, smal- 
LDOS, The Basic Answer and other 
well-known packages will be sold in 
the United Kingdom to the end user 
at the pound equivalent of the US 
retail price. In other words, there will 


be no reflection in the new pricing 
schedules of Customs duty or 
shipping. 

It is believed that this is the first 
time in the software industry that the 
price in the Uni ited Kingdon n will be 
the same as that in the USA. 


Molimerx Ltd is at 1 Buckhurst 
Road, Town Hall Square, Bexhill-on- 
Sea, East Sussex (telephone 0424 
22039 1/223636). 


GEMINI GRAPHICS 


Henry's of Edgware Road has 





extended its range of a vailable 
software packages with the introduc- 
tion of IVC HI-RES, a program which 
provides pseudo high resolution 
graphics on 640 by 250 matrix. 

IVC HE-RES has been specially 
written for the Gemini Multiboard 
computers, the Gemini Galaxy 


range, the Quantum 2000, the 
Kenilworth Personal Computer and 
CP/M based Nascoms fitted with the 
Gemin ni GM 8 12 IVC. It achieves 
pseudo high resolution graphics by 
reprogramming the video control 
processor and mapping the pro- 
grammable set generator to the 
screen. 

Available from Henry's at £15 
plus VAT, IVC HI- RES provides the 
following commands: Select mode 
(48 or 80 column); clear graphics 
screen; select decimal or binary co- 
ordinates; set, reset, invert and test 
point X, Y: line set, line reset and line 

nvert line X, Y to Xl, hae 

Henry's can be found at 404-406 
Edgware Road, London W2 1ED 
(telephone (01-402 6822). 


MICRODRIVE 


BUDGETTING 





With the recent introduction of the ZX 
eee. you now have the ability 

o load the Cas! 1 h Con troller program 
and make an entry in around 90 
seconds. This upgrades the per OI- 
mance of the 48K Spectrum for more 
serious roles. 

Richard Shepherd Software have 
just released a professional-style 
Cash Controller program (believed 
to be the first) that has a “SAVE-to-ZX 
Microdrive” option in the main menu. 
The obvious advantage of this Mic- 
rodrive capability is that it allows the 

user to SAVE the program onto a 
blank Microdrive cartridge w i 
supplies are more readily available. 

This home budgeting and bank- 
ing system handles up to 400 tran- 
sactions which can be automatically 
allocated against 16 selected 
budget headings such as Rates, 
Gas, Tax and so on. The program 
also gives statements on demand. 

Cash Controller for the 48K 
Spectrum with ZX Microdrive com- 
patibility costs £9.95 and is now 
available by mail order, telephone 

credit card order or from most lead- 
ing computer stores. Contact 
Richard Shepherd Software, Elm 
House, 23-25 Elmshott Lane, Cip- 


penham, Slough, Berks (tel ephone 
06286 63531). 
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LEARN WITH GRIFFIN 


Griffin Software, part of Griffin & 
George, has launched a new range 
of educational programs for use on 
home computers, for young children 
in the 4-9 age bracket. There are, 
initially, six programs taking the form 
of instructional booklets for parents 
plus computer software tapes attrac- 
tively packaged and colour-coded. 

The new range of Griffin Software 
children’s educational programs is 
for use initially on two types of home 
computer — the Sinclair ZX Spec- 
trum 48K and BBC Model B 32K mic- 
rocomputers — which together con- 
stitute some 60% of the total UK 
home computer market. The 
educational software will, however, 
be progressively extended to other 
home computers as appropriate. 

Four of the new home computer 
programs for 4-9 year olds are avail- 
able from Smiths, Boots and other 
leading retail outlets now — ‘Word- 
spell’ (spelling); ‘Getset' (numbers); 
‘Numbertun’ (addition and subtra- 
tion); ‘Tablesums’ (multiplication), 
while the other two programs — 
‘Fairshare’ (division) and ‘Word- 
games (more advanced spelling) — 
will both be in the shops by the end 
of November. 

The six programs, with colour- 
coded packaging — blue for soft- 
ware for use on the Sinclair ZX Spec- 
trum and green for the BBC Model B 
microcomputers — are priced at 
£7.99 for Spectrum and £9.95 for 
BBC Model B. 


aN CTA AG OYA A 


Flexibase, Alligatacalc and Scribe II 
are three home/business utilities for 
the BBC Model B now available from 
Alligata Software, of Sheffield. 
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Flexibase is, as the name suc- 
gests, a flexible master database. 
Available on tape and disc, Flex- 
ibase enables users to extend the 
number of records they can hold by 
selecting the number of fields in 
each record and then the number of 
characters in each field. Output is to 
either screen or printer. All records 
can be sorted alphabetically on the 
first field, with a secondary sort on 
any of the first 10 fields in preferred 
order. (RRP is £9.95 on tape; £13.95 
on disc). 

Alligatacalc is a simplified 
financial/accounting package 
designed specifically for the BBC to 
handle the following tasks: cash tlow 
forecasting: budgetary control; 
estimating; price lists; discount struc- 
tures; profit and loss accounts; pro- 
titability charts; home finance control: 
shopping lists. The program will 
automatically calculate any changes 
in detail input and instantly correct 
affected totals, which means that 
constant updating is simple and fast. 
(RRP is £9.95). 

Scribe Il is a professional word 
processor for the BBC Model B, fully 
compatible with all versions of the 
operating system and able to be 
used parallel or serial printer. The 
program is simple to use but very 
powertul, and handles up to 600 
lines of text (about two A4 sheets). 
The main features include menu 
drive; block insert/replace/delete; 80 
characters per line display on 
screen; adjustable column width; 
save/load fi les to tape/disc; print as 
formatted or unformatted text; user- 
detined key operation for easy use. 
(RRP is £9.95 on tape; £14.95 on 
disc). 

For more information contact 
Alligata Software, 178 West Street, 
Sheffield S1 4ET. 
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MICROWRITING FOR 





PETS 


Commodore PET users can now 
communicate with the Microwriter — 
the portable hand-held wordpro- 
cessor with a unique and extremely 
simple to use keyboard of just six 
keys. Microcomputer Services, an 
appointed Microwniting Centre, has 
developed the software program 
‘Speakeasy’, which allows two-way 
transter of text between PETs and 
Microwntters. 

Now PET microcomputer users 
can transter text to their data discs 
tor storage, merging of files or for 
printing out at a convenient moment. 
Documents can also be retrieved 
trom the PET and entered into the 
Microwriter's memory for reference, 
updating or amendment. The Mic 
rowriter can also be used in a net- 
worked environment. An interface 
lead, enabling communciation bet 
ween the PET, which has IEEE con- 
nectors, and the Microwniter's in-built 
RS232 interface is available from 
Microcomputer Services. 

The ‘Speakeasy’ program is avail- 
able from Microcomputer Services, 
priced at £140. It will also be avail- 
able soon from other Microwriting 
centres around the UK. Details are 
available trom Osman Ismail o1 
Leslie Bird at MCS, telephone num- 
ber QO1-802 0019, or 01-809 3896. 





DATA GENIE FOR 


SPECTRUM 


Following on the launch of Magpie 
for the Commodore 64, Audiogenic 
have now announced Data Genie 
Data Genie is an easy-to-use data- 
base and record retrieval package 
that allows users of the Sinclair Spec- 
trum to organise their own records in 
their own Beis manner and to 
recall them under a wide range o1 
parametels. 

The package is controlled 
through the novel method of ‘pop-up’ 
menus which are managed by just 
three keys. The user selects the 
required option from each menu by 
raising or lowering a cursor line. 
Once the cursor is over the required 
option, a third key automatically 
pulls in the menu relating to the 
option, overlaying the new menu on 
the previous menu. The user is thus 
able to follow clearly the steps taken 
in building up the database. As a 
menu element is selected, Data 
Genie automatically writes the rele- 
vent part of the program. 

Data Genie is supplied on cas- 
sette for the Sinclair 48K Spectrum at 
a cost of £9.95 and is available 
direct from Audiogenic or the nation- 
wide dealer network. Audiogenic are 
at PO Box 88, Reading, Berks RG] 
25N. 
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Spectrum programs only £6.95 BBC/Electron programs only £7.95 


and all good computer shops, where most titles are available. 


_ Dealers should contact their regular distributors. 





No. diy Behaceitoin 


Stell Software 36 Limefield Ave, Whalley, Lancs, BB6 9RJ. 
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Make learning fun with these top quality educational games! 


_ Ask for Stell Software at larger branches of Boots, John Menzies, W. H. Smith 











NEXT MONTH pg 





POKER 


Following the ZX81 version of Backgammon in the Sep- 
tember issue, we now offer you BBC Poker. Written for the 
32K BBC Micro with any operating system, this game will 
shuffle the deck, deal and bet with you, and all without 
the danger of losing your shirt. The only disadvantage is 
that you cannot read the expression on the computer's 
face to find out if it's bluffing! User-defined graphics allow 
your hand to be displayed on-screen as a set of cards, 
and if you do run into trouble the computer will even 
advance a loan of £1000. Bring the casino into your own 
home with the March Computing Today. 


EASYCODE 


There are some difficulties attached to any series of 
articles that attempt to teach machine code. For a start, 
there's a different instruction set for each type of micro- 
processor. Then the type of microprocessor available 
depends on which computer you have: not all readers will 
have the same processor to hand. 

We've overcome the problems by inventing our own 
microprocessor! Easycode uses a simulated micro- 
processor with 100 ‘memory locations’ available, and 
using this model we can teach the general principles of 
machine code programming. The simulation will run on 
any home computer which supports BASIC and a TV 
display. 


ZX SPECTRUM PRINTER 
INTERFACE 


The Sinclair printer is nice and cheap, but the results are 
nasty and cheap-looking. It would be better to use a 
good-quality printer but there are a number of problems: 
the Spectrum has no Centronics interface and it puts out 
the wrong codes anyway. Next month we'll be publishing 
a combined hardware and software project to allow print- 
ing on a Centronics device: you can use either a simple 
DIY interface or the ready-built product from Kempston 
Electronics, and suitable software will be given for both 
types. 


Articles described here are in an advanced state of preparation 
but circumstances may dictate changes to the final contents. 


fink, 


GENIE UTILITIES 


This short piece of software provides a wealth of extra 
tacilities for the Genie owner. USR calls with multiple 
parameters, a VDU-type command for easy output of 
ASCII characters to the display, and conversions between 
various bases — it's all packed into only 334 bytes of 
machine code. Don't miss the March issue of Computing 


Today. 


SCOPE FOR IMPROVEMENT 


The Spectrum is capable of some very advanced 
graphics effects, as evidenced by the latest in commercial 
software for the machine. Unfortunately it's been 
necessary to get your hands dirty with machine code if 
reasonably-paced arcade games are to be attempted. 
Until now, that is. SCOPE (Simple Compilation of Plain 
English) is a collection of just 31 commands that allow 
anyone to design a game and make it run at machine 
code speeds. We'll be reviewing this piece of software in 
the March issue. 
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INNOVATIVE 





SoftwareNews @ 





from the projessionals 


NEWS FLASH! 





Molimerx and Logical Systems of Milwaukee, U.S.A., have joined forces to bring their 
customers a lower costing product and faster and more efficient service. 

From January 1984 all LDOS 5.1.x Logical Systems products, together with some of the 
LDOS (TRSDOS) 6. < products, will be available from Molimerx at the pound equivalent of the U.S. 
Dollar retail price. In other words, for the first time the considerable range of products of Logical 
Systems Incorporated will be available to the end user in the United Kingdom at the price at which 
the American customer can buy it in the U.S.A. All support for these products is being shifted to 
England, so that as from 1st January, U.K. customers can have the benefit of this important line, 
exactly as if it had been written and produced over here. 

Adjustments for the exchange rate will be made every six months or so. We are starting with 
the present exchange rate of 1.48. After VAT is added this scheme results in the price schedule 
(plus P&P) that follows: 


Name Brief Description Previous Present 
Selling Price Selling Price 
DISK/DISK Convert a disk file to another ‘‘disk drive’’! £n/a £ 76.94 
FED {15.1 All purpose disk file editor £ 27.60 £ 27.60 
FILE MANAGER 5.1 Utility for mass manipulation of files £ 33.40 £ 30.30 
FILE MANAGER 6.0 Utility for mass manipulation of files £ 33.40 £ 30.30 
FILTER PACKAGE 1 Filters to enhance LDOS Ee i271 £ 22.54 
FILTER PACKAGE 2 Filters to enhance LDOS ie a i £ 22.54 
FIX DISK A collection of patches for LDOS £ 13.80 TRE By s 
HELP S$: LDOS and LBASIC help E 17.25 £ 14.78 
HELP GENERATOR 5.1 Create your own HELP files ) E 33.35 E 33.35 
HELP TEXT SOURCE Source files for creating main HELP files S47 25 £ 14.78 
INVENTORY An aid to inventory tracking £ 82.50 £ 76.94 
1/0 MONITOR Disk |/O error intercept utility for LDOS £ 22.43 £ 14.78 
LDOS 5.17% New generation disk operating system £105.80 £100.28 
L DOS TECH. HELP Technical help for LDOS £ 20.70 £ 20.70 
LED Screen orientated text editor E 271.85 £ 21.85 
MAIL/FILE II A mailing list database manager £ 82.50 £ 76.94 
MEMDISK Additional disk type storage £ 28.69 £ 22.54 
QUIZ MASTER Questions and Answers — Master includes general £ 33.40 £ 30.30 
QM GEOGRAPHY Questions and Answers — Geography Requires Quiz Master EW 25 £ 14.78 
QM MATH Questions and Answers — Maths Requires Quiz Master A Be £ 14.78 
Smal-LDOS Miniature of the original LDOS £ 43.70 £ 43.70 
T.B.A. 5.1 Basic text processing utility e Shas & 51.75 
T.B.A. 6.0 Basic text processing utility £57.56 £ 57.50 
ULTRA TREK Space Wargame En/a e.. Fay 
UTILITY DISK | LDOS enhancement package £ 33.46 £ 30.30 


A J HARDING (MOLIMERX) 
1 BUCKHURST ROAD, TOWN HALL SQUARE, BEXHILL-ON-SEA, EAST SUSSEX. 
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Software: Graphics routines 


USING EPSON MX-80 GRAPHICS 





James |. Bartholomew 








USING EPSON 





MX-80 GRAPHICS 





The Epson Mx-printer is a popular and versatile 
beast which is capable of a great deal more than 
just listing your programs. In this article we show 
you how to make the most of graphics. 








hen I originally decided to 
buy a printer it was to help 
me in the development of 
programs, to print out results and to 
use in writing reports and letters. | 
chose the Epson MX-80 because it 
was a good, clear typeface and also 
because it had a dot graphics 
capability which I thought would 
compensate for the lack of high 
resolution graphics on my TRS-80. 
When you look at advertising 
brochures and reviews of printers 
they usually illustrate the graphics 
capability by contour maps of some 
mathematical function and pictures 
of pretty ladies made up from 
individual dots. There is very little 
information, however, either in books 
or magazines on how to produce 
these pictures for yourself at home. A 
digital converter would be required 
to change a photograph into data for 
a computer, but mathematical func- 
tions can be graphed quite easily. 
A favorite function of mine is 
Z= 10% SIN(X)/X, which crops up fre- 
quently in science and engineering 
and has a pleasant appearance. If 
you wanted to plot this on the VDU 
you would use a program such as 
Listing 1 which takes each value of 
X, calculates the corresponding 
value of Z, scales the coordinates 
and displays the point on the screen. 
This direct approach cannot be 
used with the MX-80 as it makes use 
of the random access characteristic 
of the VDU; each point can be SET 
or RESET in any order. With a printer 
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Fig. 1 The association between the 
data bits and dot wires. 





you must start at the top and work 
down. Once it has advanced to print 
a lower point, it cannot go back up 
again. 

It is necessary, therefore, to 
calculate each point first, store the 
results and finally print them. Before 
we do this, let's remind ourselves of 
how the MX-80 prints dot graphics. 


EPSON GRAPHICS 
MODE 


To enter the normal density bit image 
mode, the computer must send an 
ESC K instruction to the printer. ESC 
is CHR$(27) and K is CHR$(75), sent 
to the printer as two consecutive 
bytes, one of 27 and the next of 75. 
The next two bytes (nl and n2) 
sent to the MX-80 tell it how many 
bytes (n) of bit image data follow; up 


to a maximum of 480, the total num- 
ber of dot positions in a line. These 
are in order (least significant byte), 
(most significant byte) and the total 
number of graphics bytes is given by 


n= nl + 256¥*¥n2 


For example, if you want to print 
110 bytes of bit image data then 
nl=110 and n2=0, or to send 310 
bytes then nl=54 and n2=1. 

Once ESC K nl n2 has been 
sent to the printer, the next n bytes 
will be interpreted as image data 
and not as characters or printer 
controls. 

Double density graphics are con- 
trolled in the same manner by send- 
ing ESC L (27 then 76) to the printer, 
and nl+256%*n2 can total up to 960 
because dot spacing is halved and 
there are twice as many in a line. 

The print head of the MX-80 con- 
tains nine wires one above the other, 
each capable of printing a single 
dot. All characters are made up of 
combinations of these dots. When 
you enter bit image mode, only the 
upper eight wires are active, and 
each bit of a graphics byte controls 
one wire as shown in Fig. 1. 

The most significant bit controls 
the top wire and the least significant 
bit the bottom. So, a byte of 255 will 
fire all eight wires to print eight dots, 
15 will print the lower four dots and 0 
will print none. 


PLOTTING THE 
FUNCTIONS 


Let us now look at two methods of 
plotting the function Z= 10% SIN(X)/ 
X. First of all, we can store all the 
values of Z in an array and then 
calculate which should be printed on 
each row. Or, secondly, we can plot 
each point into a buffer and then 
dump the buffer out to the printer. 

In the first method, for the range 
of values of X that we want to use we 
calculate each value of Z and store it 
in an array Z(X). Then we scan the 
array for each value of Z, starting at 
the highest, and print a dot at the 
appropriate X position. This is done 
by Listing 2 and the result is shown in 
Fics, 2. 

If we decide to calculate for 
values of X between —15 and 15 in 


99 REM ** Clear the screen ** 
190 CLS 
109 REM ** Calculate function ** 
110 FOR X=-15 TO 15 STEP .2S 
IF X=0 THEN Z=10: GOTO 140 
Z=10*#SIN(X) /X 
REM #** Scale coordinates for display ** 
XD=4#xX+64 
ZD=36-3#Z 
REM ** Display point ** 
160 SET (XD, ZD) 
770 NEXT x 
179 REM ** Preserve display ** 
180 GOTO 180 


Listing 1. Program to display 
Z= 10% SIN(X)/X on the VDU. 
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Fig. 2 Atwo-dimensional function, 
Z= 10% SIN(X)/X. 


steps of O.1 there will be 301 values 
of Z, so we dimension the array. The 
upper limit of 15.05 in the FOR state- 
ment is to compensate for inac- 
curacies in the single precision 
maths of the TRS-80. If it starts at 
—15 and adds 0.1 for 300 times, 
instead of reaching 15, it gives just 
over 15 and the loop would finish 
without calculating that point unless 
we make the upper limit just over 15. 

Line 200 uses ESC A 8 to set the 
paper advance at a linefeed to 8/ 
72nds inch. As each dot is 1/72nd 
inch apart this means there will be 
no spaces between lines. The verti- 
cal spacing of dots will be even. 

The value of Z will lie between 10 
and —3, and for each value we start 
a new line, set a tab to centre the 
picture and set the graphics mode. 

It the value of Z(N) is less than V 
then we don't want to plot it yet, soA 
is set to zero. If Z(N) is not less than V 
then we have a point that we wish to 
plot and we must calculate which of 
the eight dot wires to fire. 

As we only wish to plot a single 
dot, the value to send to the printer 
will be 1, 2, 4, 8, 16, 32, 64 and 128, 


which are all powers of 2 ie 2°, 2',... 


. 2’. If we subtract the integer part of 
Z(N) from Z(N) we are left with the 
remainder RZ, which will be a posi- 
tive number less than |. This is mul- 
tiplied by 8 and the integer taken to 
give a whole number between O anc 
7 proportional to RZ. This is the 
exponent EX of 2 we need to print 


the correct dot. Z(N) is made equal tc 























99 REM #* Dimension array ** 
100 DIM Z(301) 

109 REM ** Calculate function ** 

110 FOR x=-15 TO 135.05 STEP «1 

120 N=INT(X#10)+4151 

130 IF X=0 THEN Z(N)=10: GOTO 150 
140 Z(N) =LO#SIN(X) /X 

150 NEXT X 

199 REM ** Set line spacing ** 

200 LPRINT CHRS$(27) sCHRS(6S5) 5s CHRS (8) 
210 FOR Veio TO -3S STEP <1 





219 REM *# Prepare graphics mode #** 


230 FOR N=1 TO 301 





220 LPRINT TAB(1S5) sCHR$ (27) $s CHRS$ (75) §SCHRS (45) SCHRS(1)5 


—100 so it will play no further part. 

A peculiarity of the TRS-80 is that 
it will not LPRINT CHR$(0), (10), (11) 
or (12); if any of these values might 
be used we have to POKE the value 
to the printer which is located at 
memory byte 14312. The MX-80 puts 
a 63 on address 14312 when it is 
ready to accept data which explains 
line 300. If your computer can 
LPRINT any number then replace 
lines 300 and 310 with: 


398 LPRINT CHR$S (A) 


You can experiment by substitut- 
ing your own equations in line 140, 
using an error trap in line 130 if 
required. You should have a good 
idea of the upper and lower limits on 
the value of Z(N) so you can set the 
loop in line 210. 

Alternatively you can have the 


program detect these for you by add- 


ing the lines: 


185 ZL=50000: ZH=-ZL 

143 IF Z(N)<ZL THEN ZL=Z(N) 

146 IF Z(N)>ZH THEN ZH=Z(N) 

210 FOR V=INT (ZH) TO INT (ZL) 
Steer =) 


Good equations to try are 


Z(N) = 3*SIN(X) + 3*COS (2*X) 
Z(N) = 1/2*(X/4)°3 - X 


BUFFERED PRINTING 


The second method we will look at is 
analogous to printing on a memory- 
mapped VDU screen. We select a 
block of memory as a buffer in which 
we will plot all the points to be prin- 
ted and then dump the buffer out to 
the printer. 

For example, if we wish to plot 
Z= 1 O% SIN(X)/X as before with X 
varying from —15 to +15 in steps of 
0.1 and Z between —3 and +10, 
then we need a buffer 301 bytes 
wide and 14 bytes high: see Fig. 3. 
So a continuous block of 4212 bytes 
must be selected and protected. For 


a TRS-80 with 16K RAM, plenty of 


110 FOR B=SE TO EB 
120 POKE B,O 
130 NEXT EB 


160 Z=1O#SIN(X)/X 


170 XD=INT(10*X) 
180 ZD=INT (Z) 


210 NEXT X 










301 BYTES 


14 BYTES 


(_] 0G = sB + 3160 


EB = SB + 4213 [— 


Fig. 3 The print buffer for a two- | 
dimensional function. | 


memory can be protected by 
answering the MEM SIZE? question 
at switch on with 20000. Whatever 
your system, choose a suitable value 
for the start byte SB. 

SB represents X—15 and Z=10, 
so the point for X=O, Z=O is SB+150 
(to make X zero) +3010 (to make Z 
zero. Thus the origin is 
OG=SB+3160. The end byte EB is 
SB+4213. 

Listing 3 shows the program for 
plotting the function. Notice the 
similarities in structure between this 
program and Listing 1, where the 
function was plotted on the VDU. 

The buffer area must first be 
cleared to avoid printing random 
points, then each point is calculated 
and plotted in the buffer. As before, 
the appropriate bit is derived by rais- 
ing 2 to an exponent formed from the 
remainder of Z. 

When plotting the point, the 
integer part of Z is multiplied by 301, 
the number of bytes in a line, in order 
to plot the point in the correct line. 
Because the top line to be printed is 
from the lowest memory addresses in 
the buffer, Z is subtracted from the 
origin rather than added. 

When dumping the buffer, C is 
used to count the number of bytes 
printed in a line and when it reaches 
301 a linefeed is sent, followed by 
data to set up the bit image mode for 


99 REM ** Select buffer address ** 
100 SB=20000: OG=SB+3160: EB=SB+4213 
109 REM ** Clear the buffer ** 


139 REM ** Calculate function #*+*# 
140 FOR X=-15 TO 15.05 STEP .32 
150 IF X=0 THEN Z=10: GOTO 170 


169 REM *# Scale coordinates for plotting **#* 
190 RZ=Z-ZD: EX=INT(8*RZ): A=2CEX 


ive REM ** Flot point #*#* 
200 POKE OG+XD-301#ZD,A 








240 IF Z(N)<V THEN A=9: GOTO 700 219 REM ** Set line spacing ** 

250 RZ=Z(N)-INT(ZO(N)) 220 LFRINT CHRS (27) 3 CHRS(65) s CHRS (8) 
260 EX=INT (8#RZ) REM ## Set counter #** 

270 A=2CEX 230 C=301 

280 Z(N) =-100 240 FOR B=SB TO EB 

299 REM #*# Print point #** IF Ce >301 THEN 270 

300 IF PEEK (14312)<>63 THEN 300 LPRINT CHR# (13) 3 TAB(15) }CHR$ (27) sCHRS(75) sCHRS (45) sCHRS(1)3: C=O 
310 POKE 14312,A REM ** Print point ** 

320 NEXT N IF PEEK (14212)<>63 THEN 2790 
330 LPRINT POKE: 14312, PEEK (B) 

340 NEXT V C=C+r1 


349 REM **# Reset printer ** 
350 LPRINT CHRS (27) 3 CHRS (64) 


200 NEXT B 
Z09 REM #*#* Reset printer ** 
210 LFPRINT CHR (27) 3; CHRS (64) 


Listing 2. Progam to store a function 
in an array before printing. 


Listing 3. Program to store a function 
in a buffer before printing. 
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REM ** Select buffer address ** 
SH=20000: OG=SB+46308: EBR=SB+t12616 


99 REM #** Select buffer address ** 
100 SB=20000; OG=SB+6308: EB=SB+12616 
109 REM ** Clear the buffer #*# 

110 FOR B=SB TO EB: POKE &,O: NEXT B 
119 REM #*## Calculate the function ** 
130 FOR Y=15 TO -15 STEP -1 


REM ##* Clear the buffer ## 

FOR B=SB TO EB: POKE B,O: NEXT B 
REM *# Calculate the function ** 
c=10 


140 PRINT Y FOR Y=12 TO -12.05 STEP -.1 

160 FOR X=-15 TO 15.05 STer .1 IF C=10 THEN S=.1: C=O: PRINT Y: GOTO 160 
170 R=SOR (Y*#Y+X#xX) S=1 

180 IF R=0O THEN Z=10: GOTO 210 FOR X=-i12 TO 12.05 STEP S 

190 Z=1LO*#SIN(R) /R R=SOR (Y#Y+X#X) 

199 REM #* Scale coordinates for plotting ** IF R=0 THEN Z=10: GOTO 200 

210 ZD=Y+Z: IZ=INT(ZD) Z=10O#SIN(R)/R 

220 RZ=ZD-IZ: EX=INT(8*#RZ): A=2CEX REM *# Scale coordinates for plotting #**#* 
230 XD=INT(10#X): YD=-341#1IZ X1L=(X+Y)#. 7071: YL=(Y-X)#*. 7071 

240 B=0G+XD+YD ZD=Yi+Z: IZ=INT(ZD) 

249 REM #*#* Check point is in bounds #*#* RZ=ZD-IZ: EX=INT(S8*#RZ): A=2CEX 

250 IF B>EB THEN GOTO 310 XD=INT(10#X1):s YD=-241#IZ 

260 IF B<SB THEN B=0G+XD-61238: A=0 B=0G6+XD+YD 

269 REM *# Erase hidden lines #** REM *#* Check point is in bounds #**# 
270 FOR M=0G+XD+6138 TO 8+341 STEP -7341 IF B>EB THEN GOTO 310 

280 POKE M,Q IF B<SB THEN B=0G+XD-6138: A=0 

290 NEXT M REM ** Erase hidden lines ** 

299 REM *## Plot point ** FOR M=0G+XD+6138 TO B+341 STEP -2341 
300 POKE &, (PEEK(B) OR A) AND (256-A) POKE M,O 

310 NEXT X NEXT M 

330 NEXT Y REM *#* Flot point ** 


399 REM *# Set line spacing and counter #+* 
400 LPRINT CHRS(27) }CHRS (65) s;CHRE(8): C=341 
409 REM ## Print out buffer **#* 

410 FOR B=SE TO ER 


420 IF C<>341 THEN 440 

430 LPRINT CHR$(13) 3 TAB(11) SCHRS(27) $CHRS (75) $CHRS (85) ;CHRE(1):: 
439 REM #* Print point #* 

440 IF PEEK (14312)<263 THEN 440 

450 POKE 14312, PEEK (B) 

460 C=C+i 

470 NEXT & 


479 REM *# Reset printer +#«* 
480 LPRINT CHR$(27) : CHRS (64) 


Listing 4. Program to print a three- 
dimensional function. 


the next line: C is then reset to zero. 
It is set to 301 initially in order to print 
the first line. 

If we compare the two methods 
we see that the first calculates the 
values of Z quite quickly, although it 
is a bit slow at plotting the function. 
The second method uses more 
memory which has to be protected, 
takes time to clear the buffer and 
calculate each point, but is faster at 
printing out. Both ways are compar- 
able, but the second method of plot- 
ting points in a buffer before dump- 
ing it to the printer is more versatile, 
as we shall see when we try to plot 
three-dimensional functions. 


3D FUNCTIONS 


Let's look at the plotting of 3- 
dimensional functions. In these cases 
we will plot Z as a function of X and 
Y, or maybe R where R is the dis- 
tance from the origin. We will plot 
values of Y above each other to 
generate the impression of depth. 

We will require a larger buffer for 
these functions, so we will set one 
which will be used for the remainder 
of the article. The buffer will be 34] 
bytes wide by 37 bytes deep, and on 
my system occupies memory loca- 
tions 20000 to 32616: see Fig. 4. 

When we come to use oblique 
views, this window will allow plotting 
of functions with X and Y both vary- 
ing from —12 to +12. Once again, 
select a suitable value of SB for your 
system. 

The simplest way to proceed is to 
select successive values of Y starting 
in the background and working 
towards the foreground. For each 
value Y, a line is plotted by calculat- 
ing the function Z. Each point is plot- 
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POKE B, (PEEK(B) OR A) 


NEXT X 
C=C+1 
NEXT Y 


AND (256-A) 


REM ** Set line spacing and counter +** 


C=0 


LPRINT CHRS (27) s CHR$ (65) s CHRS$ (8): 


C=341 


REM *# Print out buffer *«#* 


FOR B=SE TO EB 


IF C<>341 THEN 440 


LPRINT CHR#(13) 3 TABR(11) 3 CHR$(27) 3; CHRS$(75) s¢CHRS(85) SCHRS$(1)3: C=0 
REM *#*# Print point ** 


IF PEEK (14312)<>63 
POKE 14312,PEEK (B) 


C=C+1 
NEXT & 


THEN 440 


REM *#* Reset printer #*#* 
LPRINT CHRS (27) ; CHRS (64) 


Listing 5. Program to print an oblique 
view of a three-dimensional function. 


ted in the buffer as it is calculated. 

By starting at the back we can 
cater for the case of hidden lines, ie 
lines which will be covered by plot- 
ting the function nearer the front. This 
is done by calculating where a point 
is to be plotted and erasing any pre- 
viously plotted points which lie 
below it. 

We are now working in three 
dimensions so Z can be a function of 
X and Y or, if it is circularly symmetri- 
cal, a function of R, the distance from 
the origin. In this case, using 
Pythagoras's theorem, 
R=SOR(X¥% X+Yw Y). 

As an advance from the function 
we plotted in two dimensions, let's 
look at plotting Z= 10% SIN(R)/R. The 
program to do this is in Listing 4 and 
the result in Fig. 5. 

First the buffer is defined and 
then cleared. Following this are a 
pair of nested loops to calculate all 
the points for each value of Y and X. 
There are 31 values of Y from —15 to 





341 BYTES 





[_] 0G = sB + 6308 


37 BYTES 





EB = SB + 12616[_] 






Fig. 4 The print buffer for three- 
dimensional functions. 








15 and 301 values of X by going in 
steps of 0.1. So in total there are 

3331 points to plot. This takes about 
an hour to complete, so to keep track 
of progress and to satisfy yourself the 
computer hasn't hung up the PRINT Y 
statement at line 140 is included. 


Fig. 5 A three-dimensional function, 
Z= 10% SIN(R)/R. 





This is probably a good place to 
point out that the listings in this 
article have been written for ease of 
understanding and to indicate the 
structure of the program. Significant 
savings can be made if spaces and 
remarks are deleted, multi-statement 
lines are used and series of calcula- 
tions are combined, especially within 
the inner loop. 

As an example, line 1770 calcu- 
lates Y¥ Y 301 times for each value 
of Y. If this is calculated once as 
Y2=Yw¥Y in line 140 then 
R=SOR(Y2+X%¥* X) can be used in 
line 170. Another saving could be to 
convert line 220 to 
A=2A(INT(8%(ZD—IZ))). 


In a manner similar to the two- 


» 


ae 
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dimensional case, the value of Z is 
calculated, the point to plot is 
derived and stored in A and the byte 
in which the point is located is 
-calculated by adding an X and Y 
displacement to the origin. This takes 
place in lines 1'70 to 240. 

Lines 250 and 260 then check if 
the byte is within the bounds of the 
buffer. If it is after the end byte EB the 
point is ignored. If it is before SB then 
the point is not plotted but it will be 
in front of any points already plotted 
below it in the buffer. In this case the 
byte is converted to the top row of 
the buffer to enable hidden line 
removal and A is reset toO so no 
point will be plotted. 

Hidden lines will be erased by 
the routine in lines 270 to 290. As we 
plot the function from the back for- 
ward, any previously plotted point 
will be behind the point currently 
being plotted. If it is also below the 
current point then it is ‘hidden’ and 
must be erased. The routine starts at 
the bottom of the buffer and resets to 
zero all bytes directly below the byte 
in which the point is to be plotted. 


X1 = X*COS(Q) + Y*SIN(Q) 


Y1= Y*COS(Q) — X*SIN(Q) 





Fig. 6 Relationships for the rotation 
|of axes. 


There is still a problem of hidden 
points within the byte as each bit 
represents a separately plottable 
point. More significant bits than the 
one in which the point is plotted are 
not hidden and most be retained, 
but the less significant bits must be 


erased. The logical expression in line 


300 accomplishes this. 

A is a power of 2 and represents 
one bit. If ORed with PEEK(B) it is 
equivalent to setting that bit. 
(PEEK(B) OR A) therefore represents 
the contents of B with the bit set that 
we are interested in. For example, if 
B has two bits set, say the LSB and 
MSB, and A = 16, then: 

PEEK(B) = 
A = 
(PEEK(B) OR A) = 


18 


Fig. 7 An oblique view of the function 
Z= 10% SIN(R)/R. 


Remembering that A is a power of 
two, a little experimenting will show 
that (256 — A) represents a binary 
number with all bits above and 
including A set, and all below A 
reset. 





A = 16 
(256 - A) = 248 


Y) 

8 
(256 — A) represents a mask which 
passes the bits we want and blocks 
the others. 


(PEEK(B) OR A) AND (256 - A) = 
6824 9 3 6 


Once all the points have been 
plotted, the buffer is dumped to the 
printer as in the two-dimensional 
case, except that there are now 341 
bytes per line. 





Fig. 8 Some other functions. 


OBLIQUE VIEWS 


Sometimes it is of value to view a 
contour obliquely and plot the lines 
parallel to the X and Y axes. This 
can be readily achieved with small 
changes to our program. 

First of all, consider how to repre- 
sent a point viewed obliquely. Sup- 
pose we have a point (X,Y) that we 
wish to view from an angle Q (see 
Fig. 6). The new coordinates (X1,Y1) 


are calculated by: 


Take in CRA 8 


For the special case of 45°: 


COS (Q) = SIN(Q) = 8.7071 
Xl (X + ¥)*6. 7671 
rl (2 =~ Kp FG. (87h 


To produce Fig. 7 this change is 
included in Listing 5 at line 200, 
along with other changes and addi- 
tions. First of all, X and Y are limited 
to between +12 and —12 giving a 
maximum value for X1 of: 


(12 + 12)98.7871 = 16.97 


The minimum value is —16.97 and 
the same holds for Y]. This uses the 
whole width and height of the buffer. 

For all integer values of Y the 
value of X is incremented in steps of 
0.1, which effectively plots a con- 
tinuous line parallel to the Y axis. At 
all other Y values, X is incremented 
by | to build up the lines parallel to 
the X axis. The value of the step is 
calculated in lines 140 and 150. C is 
introduced as a counter to determine 
when the step of O.1 is required and 
is initially set to 10. 

With these changes made, the 
program calculates the function and 
plots it using X1 and Y1. Plotting the 
points into the buffer and dumping 
the buffer to the printer are accom- 
plished in the same way as in the 
previous listing. 


meledigi=ls. 
DEVELOPMENTS 


Considering the time it takes the pro- 
grams in this article to run, it would 
be a wise move to write machine 
language routines to clear the buffer 
and dump the buffer to the printer. 
However, by far the longest time is 
taken in calculating all the points 
and plotting them in the buffer. A 
routine to save the buffer to tape or 
disc could save a lot of time in future 
if it was necessary to print out a func- 
tion again. 

With a little adaptation these 
routines could be used to plot 
functions on the video display if your 
computer has a high resolution 
graphics capability. This would give 
the enjoyment of being able to watch 
the picture being built up rather than 
just imagining it. 
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SPECTRUM 
MACHINE CODE 





With a hefty piece of machine code to write on 
the Spectrum, our reviewer looked around for 
some tools to help him out. This is what he found. 
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petfore tnat. vVWVNdAtl WOQMNleEQA Was QAQta 


relatina to the Spe ctnim For 'e 

tion on the 7¢ 30, it would be « ‘ifficul 
improve on Programming the 

780. Rodnay Zaks, Syber), which has 


lona Beer our stanc oh J reference on 


The three Interface books wer 
aimed at comparative beginners, 
even though one had 
Advanced Proarammers’.. Starting 
with explanations of binary ( 
hexadecimal notati 

quite briskly rc 


1C iC 
forward, but were 
ert an ales : oe ] — 
primarily concerned w th 1mac sc 
code as a SaBPOH A to BASIC pro- 


grams, whereas I needed a 


1 the use of RO M. Ic nihtios to sup- 
port machine code. 

Th >re were also some rather fun 
damental! errors. In the volume sub- 


titled ‘For Beginners, it was said 
that adaition 


cua Rat. de tat ko Pe ee a 
periorm H] ode + DE VIC the ‘an 
reaister. The ir 


would have been more appropriate. 


It was also stated that t 


Vans ie | 
COULG 


E> a 


Not 


register, W 


oe transie 


[ ) 
hin) . - 
Micn 18 NONSenNse. 


These may seem to be very minor 


points, but such mis-: 
a way of spreading themselves. It 
seemed most unfortunate, to put i 
mildly, that beginners should be 


{ 
VV VA FY oe 


listings were prin te d as facsimiles of 
rather tatty ZX Pr nter output. Now 
that there « 4] systems | 


rum this is unnecessary. One 
ong listing in the largest of the three 


books was based on the output of a 
ee: my Bait 21) ik Ree UE SS 8s (Pa ] 
printer which with a very limited 
character matrix, and that was very 
AED ol ARS Bes pee eal one x oot eee ae ‘ 
qlinicu! LU) LecrG). rli0oweve! eet 
listings 
that were very clear. 
a first two books were 
| Spectrum Machine Code 
Made Easy, \ olume | James 
Walsh) bei ] ne Su 


er oth 


iotitled ‘For Begin- 


ners, and Volume 2 (Paul Holmes) 
beina subtitled ‘For Advanced Pre 
arammers’. Both authors are 
te igers, and while their text 
showed considerable maturity th 
ontent perhaps reflected thei 
i] 


imitea expenence 
The third book { Mastering 


Code on your ZX ie edlrara (Toni 


f } 
t of the 
- V/s iis 


Baker), was much more comprehen- 
sive, giving some quite substantial 
programs as illustrations. 

These three books were 
examined in detail, but several more 
were examined before it became 
obvious that there was a distinct gap 
in coverage, with nothing to provide 
the data needed by the awday 
serious programmer. This is rather 
typical of the personal computer 
scene. There is plenty of help for 
novices, up to a point, but thereatter 
they are left to their own devi ces. But 
for that, many more would be able to 
continue their development to higher 
levels. 

The next need was for software 
tools. For programs up to arot und 600 
by tes, I will happily code by hand, 
but with 6000 by tes and a large 
database in prospec tan assembler 
was obviously desirable 

The first specimen, the Zeus 
Assembler from Crystal, lailed to 
sae It gave a disp ay in norma 
Spectrum lettering, lower case, in 
black on white, and ‘there was little in 
the way of formattin g to make the | 
result readable. ize re xample, labels 
tended to get buried in a aa ea 
mass ¢ text, where they should have 
been in a column on their own 

The second offering brought 
reliet. in Picturesque Editor/ 
Assen ibler was in a different class: 
the display was a pleasant white on 
blue, with 40 columns neatly divided 
into appropri iate fields. Capital 
letters of very readable form were the 
norm, though lower case became 
available for text between quotes, 
used for comments and messages, 
The Editor provided auto-numbering 
and renumber, making insertions as 
easy as in BASIC, and the simple 
command set provided all the 
functions needed. 

There was the slight snag that the 
moved to the left- 
command 





irsor had to be 
1. before any 


] 


v= d column 
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was recognised, but that soon 
became a matter of habit. There was 
also the fact that the all code was 


assembled in the Object Buffer, start- 


ing 256 bytes above STKEND, 
whatever the stated origin for the 


code might be. It was then necessary 


to save the Object Buffer to tape, 
producing a result that could be 
loaded into the correct position by 
the usual LOAD” CODE commana. 

Nevertheless, it was possible to 
test code before saving it by specitfy- 
ing ORG#, which put the origin at 
the start of the Object Buffer. Once 
the code was proved, it could be re- 
assembled with the proper origin, 
and saved to tape. 

Verify was intelligent enough to 
know what kind of recording was 
involved, either source text or object 
code, and it was possible to retain 
the contents of the Lable Table while 
loading tresh source code. 

In short, the system was a near- 
professional standard in concept, 
and thoroughly professional in 
execution, which is more than could 
be said of some of its competitors. 

The program also has the benetit 
of a good backup service. A mild 
query brought a full page letter of 
explanation, together with a copy of 
the most recent issue of the tape. In 
response to a question about driving 
more respectable printers, the letter 


CHRISTMAS OFFER 
Brother HR-15 Printer 


£39500 £399.00 


also enclosed a listing for a driver to 
match the Kempston interface, and 

that was the clincher, since it would 
allow the programs produced to be 
properly documented on an Epson 

MX80. 

As a companion to the Assem- 
bler, Picturesque produce a Monitor, 
both programs being supplied in 16K 
and 48K form. It is therefore possible 
to load both at the same time, which 
can save a lot of fiddling about, at 
the expense of a reduction in work- 
ing space. 

The Assembler is so quick, 
especially with no display or printout, 
that there was little excuse for patch- 
ing code directly, but the Monitor 
had a number of other uses. It would 
move code bodily trom one area to 
another, or fill an area of RAM with a 
given byte value. It would insert or 
delete code, moving higher code 
appropriately. It would jump to a 
specitied start point. It would set, 
implement, and clear breakpoints, 
display register contents and alter 
them, generate a hex dump, or enter 
text into memory. There was also a 
conversion routine between hex and 
decimal. The MX80 printer driver will 
work with the Monitor, too. 

Equipped with these two 
Picturesque programs, | feel able to 
approach the task ahead with 
greater confidence. When such satis- 


SPECTRUM MACHINE CODE 





factory offerings are available, it 
seems a pity that many users, buying 
blind by post, may well think that less 
professional programs are the best 
available. Being a cynic, | sometimes 
suspect that products that are adver- 
tised strenuously are less satisfactory 
than those which are not advertised 
at all. Getting in touch with 
Picturesque was a little difficult, 
because they advertise very little... 


The Complete Spectrum ROM 
Disassembly, Dr. lan Logan and Dr. 
Frank O'Hara, Melboume House, 
£9.95. 

Programming the Z80, Rodnay 
Zaks, Sybex, £9.95 from The Com- 
puter Bookshop, 30 Lincoln Road, 
Olton, Birmingham B27 6PA. 
Spectrum Machine Code Made 
Easy Vol 1, James Walsh, Interface, 
Eo. 

Spectrum Machine Code Made 
Easy Vol 2, Paul Holmes, Interface, 
MaRS ee 

Mastering Machine Code for 
your Spectrum, Toni Baker, 
Interface, £9.95. 

Spectrum Editor/Assembler, 
£8.50 including VAT and postage. 
Spectrum Monitor, £7.50 including 
VAT and postage. 

Both the above from Picturesque, 6 
Corkscrew Hill, West Wickham, Kent 
BR4 OBB. 


CHRISTMAS PRESENT 
Printer for you... 
... fypewriter for wife 


SPECIAL PRICE £399 + VAT 


17 Chrs per second. Perfect daisywheel 


print. Ideal for home and business use. 


Cen 


68 CROWD susiness CENTRE 


56 - 58 SOUTH STREET, EASTBOURNE, 
EAST SUSSEX. (0323) 639983/20496 
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will run Sinclair, BBC, Dragon, Sharp, Sirius 


, Vic 64, 


Apple, virtually any computer. 

BROTHER CE-50 DAISYWHEEL TYPEWRITER 
Perfect print quality. Lift off correction. 
Coloured carbon ribbons - 10 million chrs - 


PRINTER 


extra daisywheel - 18 type styles. 


13 Chrs per sec— ASC || wheel available — medium 


Carriage paid 


duty use — parallel or serial. Full K.S.R.—only £30.00 
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Not all home computers 
stay at home. 


The BBC Micro is the ideal family com- such as David Beck, pictured below with 
puter—simple to operate, yet fast, powerful, his class, is “Newsagent.” ™ 
with enormous potential. This program contains all the 

But its nice to know, , necessary information for the class 
when you buy one for yourg toruna newsagents shop; allow- 
home, that the business, /[ ing them to organise daily 
educationaland scientific deliveries, make up bills and 
worlds agree with your keep an eye on stock 








KAOLIN MORPH 


TAKE TWO SM 
FOUR TIMES | 


SHAKE WELL | 
HR THOMAS 













choice. control and ordering. 8. DRUG 
Here are a few stories It's a nice example 
to illustrate how the BBC of how the BBC 


Micro can be used 

not only to acquaint 

a class with the language 
of computers, but also 
with some of the real- 


Micro gets out and about. 
And one to remind you how 
helpful it can be when it stays 
at home. 

A practical lesson in 





business admin. ities of the community 
The contribution of the BBC in which they live. 
Micro in the classroom has long Correcting 
been recognised at Perins Community Jodrell Bank. 
School in Hampshire. The BBC Micro is a 
The School has 12 BBC Micros used familiar worker around 
extensively across the syllabus: in fact Jodrell Bank. 
some pupils are using them to study for Youll find it in the reception area ex- 
their GCE O Levels in computing. plaining the workings of a radio telescope 


One of the programs available to visitors, for example. 
to Perins teachers > But it's also been helping in a 
_ more testing task: to improve the per- 
formance of the Defford telescope. 
In this application it has 
been used to make calculations 
necessary to determine the 
precise parabolic shape of — __ 
the dish. | 
Theodolites are used - 
to do the measuring- then 


the BBC Micro works out the 


necessary corrections. 


ue 


eit 
ee 




























The end of the scrawl. 

If any of you have noticed how much 
easier it is to read and understand labels 
on drugs and medicines these days, then 
you can most probably thank the BBC 
Micro. John Richardson, a Preston pharm- 
acist, was first to realise how a micro with 
a suitable printer could produce labels 
that were accurate and legible and 
which could include, automatically, 
such information as drug reaction 
| | warnings. 
| At the same time it 
could record drug usage for 
better stock control. 

He chose the BBC 
Micro for its versatility and 
potential for expansion. 

John Richardson be- 
lieves that this system will 
~ be recognised as standard 
in the profession and be used in hospitals, 
health centres and pharmacies through- 
out the UK. 

Meanwhile back at home. 

Dr. & Mrs. Yarwood bought a BBC 
Micro as a birthday present for their 12 
year old daughter. 










PARACETAMOL # 


TWO TO BE TAKEN 
FOUR TIMES A DAY 













However, it quite quick 
common property. 
All three can now write their own 






programs. Mrs. Yarwood is particularly 
proud of one program she has compiled to 
help teach her daughter French 
vocabulary. 

They all agree thatalthough the Micro 
is fast and powerful enough to be at home 
in Jodrell Bank, + . \ 
itisalsothe ~— ’ 
ideal com- adhslisot ec Bad tate 
puter at the 
Yarwood 
home: 
simple to set 
up (virtually 
any lV set 
and cassette 
player is all 
you need) 
and simple 
to use. 











All this for only £399, 

The BBC Micro comes with a com- 
prehensive, step-by-step User Guide 
which introduces you to your micro and 
shows you how to construct useful pro- 
erams of your own. 

You willalso receive a free“Welcome” 
cassette which contains I5 different 

programs for you to experiment 
with, ranging from music and 
eraphics to games like Kingdom 
and Bat’ Ball. 

The BBC Micro is available 
from W H Smith Computer 
Shops, Boots, John Lewis and 

local Acorn stockists. 

Alternatively if you would 

like to order one with your 
credit card or if you want 
_ the address of your nearest 
supplier just phone 


01-200 0200 or 0933-79300. 





‘The BBC Microcomputer System. 


Designed. produced and distributed by Acorn Computers Limited. 
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GETTING MORE 
FROM THE 64 





PART 3 


Our final article in this series looks at the sound 
capabilities of the Commodore 64 (and some of 
the errors in the User Manual!) 





here is no doubt that good 

sound effects can make even 

the simplest of games much 
more exciting to play. But the use of 
sound in computing need not be res- 
tricted to the games applications. 
Sound, when used properly, can pro- 
vide as much information as several 
lines of text. Warming tones, advisory 
tones, audio feedback on data entry 
and, on the more advanced 
machines, real music are all 
possibilities. 

The sound system on the Com- 
modore 64 is well able to provide 
almost limitless sound effects and 
excellent music. And because the 
sound facilities are accessed by 
POKEing individual registers the sys- 
tem is very flexible. This allows 
experimentation with all sorts of 
unlikely combinations of tones and 
filters when developing sound 
effects. 


THE SOUND SYSTEM 
ORGANISATION 


The sound system is controlled by 
the Sound Interface Device or SID 
chip for short. Internally it has three 
completely separate sound channels 
-or voices. The voices are organised 
as shown in Fig. 1. 

Each of the sound sources can 
produce four different waveforms, 
triangular, sawtooth, rectangular 
(pulse) and white noise. The frequen- 
cies of each of the waveforms can be 
individually varied and the pulse 
width ratio of the rectangular wave- 
form can also be varied. Figure 2 
shows the shapes of the four different 
wavetorms. For any particular note, 
these four waveforms produce very 
different sounds. 

The sound is then fed into an 
envelope shaper where the Sustain 
level and the Attack, Decay and 
Release rates can be set up (the 
ADSR envelope). Figure 3 shows a 
typical ADSR envelope. It is this 
envelope shape which gives musical 
instruments their distinctive sounds 
and it is possible to ‘simulate’ some of 
them quite well. Altematively new 
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VOICE 1 
SOUND 
SOURCE 





VOICE 1 
ENVELOPE 
SHAPER 








MASTER 
VOLUME 














VOICE 2 
SOUND 
SOURCE 


VOICE 2 
ENVELOPE 
SHAPER 






AND 
FILTERS 







VOICE 3 
SOUND 
SOURCE 


VOICE 3 
ENVELOPE 
SHAPER 






| Fig. 1 The organisation of the 
voices. 


‘computer instrument’ sounds can be 
produced by using other envelope 
shapes. 

Finally the outputs from the three 
voices are brought together under a 
master volume control. Three types 
of tone filtering can also be intro- 


duced at this stage. These are a high 
pass, a low pass and a band pass 
filter. The cutoff frequencies of these 
filters can be individually selected. 
Figure 4 shows the effects of the 
three types of filter. 


THE SOUND 
SOURCES 


Commodore call the sound sources 
‘waveform generators’ and they have 
two main functions: 

@ To produce a note of the selected 
frequency in the selected waveform. 
@ To enable the waveform genera- 
tor output to be tumed on or oft. 

For each voice both these functions 
are controlled by the same register, 
the voice control register. These 
control registers are at the following 
locations: 


Voice 1 = 54276 

Voice 2 = 54283* 

Voice 3 = 54290 
*NOTE — this register is incorrectly 
specitied as 54288 in our version ol 
the User Manual. 

The contents of each of the con- 
trol registers are very similar (we will 
look at the differences between them 
later). The bits within the registers are 
used as follows: 

7 White noise select (1 = ON) 

6 Pulse waveform select (1 = ON) 

5 Sawtooth waveform select 


(1 = ON) 
4 Triangle wavetorm select 
oe) 


Bits 1-3 do not concem us here. 
Leave them at O. 





(a) 


AMPLITUDE 


SAWTOOTH WAVE 





(b) 


AMPLITUDE 


| 
RECTANGULAR WAVE 





(c) 


AMPLITUDE 


TRIANGULAR WAVE 





(d) 


NOISE 


AMPLITUDE 


TIME 


Fig. 2 Four different waveforms. (a) Sawtooth (b) Triangular wave 


(c) Rectangular wave (d) Noise. 
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VOLUME 


DECAY 


RATE RATE 


| 
| 
| 
| 
SUSTAIN LEVEL 7 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| ATTACK 
| 


Fig. 3 Atypical ADSR envelope. 
O Gate bit (1 = Start attack/ 


decay/sustain cycle). 
(O = Start release 

cycle) 
From this you can see that there are 
two decimal values for each wave- 
form type: one for the attack/decay/ 
sustain cycle and one for the release 
cycle. Table | shows the two values 
of each waveform. 

The procedure for playing any 
given note is: 
@ Start attack/decay/sustain cycle 
(POKE voice control register, Attack/ 
decay/sustain value). 
@ Hold sustain for length of note 
(Count note length). 
@ When note has finished, start 
release (POKE voice control register, 


(a) BAND PASS FILTER 
VOLUME 
Sat one FREQUENCY 
(b) 
VOLUME LOW PASS FILTER 


CUT-OFF FREQUENCY 
(c) 


VOLUME 


HIGH PASS FILTER 





CUTOFF FREQUENCY 


Fig. 4 The effects of various types 
of filter. (a) Band pass (b) Low 
pass (c) High pass. 
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SUSTAIN 
PERIOD 
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RELEASE 
RATE 


Release value). 

The length of the note depends on 
the type of note being played 
(crotchets, quavers and so on all 
have different lengths). The obvious 
way to time this delay is with a 
simple FOR-NEXT loop. You will 
need to determine by trial and error 
the delay required for a crotchet to 
sound the right length, but having 
found this value all the other note 
lengths are simply multiples of this 
value. 


PITCHING IT RIGHT 


Selecting the frequency of the 
desired note is a little bit more dif 
ficult. For each voice the trequency 
of the waveform generator output is 
determined by the values in two 
registers, the high frequency control 
register and the low frequency con- 
trol register. Table 2 shows where the 
frequency control registers for each 
voice are located. 

The two frequency control regis- 
ters are ‘read’ by the SID chip as a 
single 16-bit register giving 65536 
different selectable frequency ‘steps. 


Waveform 
type 

Noise 

Pulse 
Sawtooth 


Triangle 


Table 1. Control register values forthe v 


Attack/decay/sustain 
Gate bit = 1 


: a 








The waveform generators in the SID 
chip can generate frequencies in the 
range QO to 4000 Hz, so that each 
selectable trequency step changes 
the frequency by only 0.06 Hz. Now, 
we don't believe that anyone can tell 
the difference between two adjacent 
steps that are only 0.06 Hz apart! 

Within this range of frequencies is 
a full eight octaves of musical notes. 
Appendix M in the User Manual lists 
the high and low frequency values 
needed to produce 95 of the 96 
notes. (More about the 96th note 
later). These values should not be 
taken as the gospel truth — indeed a 
musician would throw up his hands 
in horror if he saw them! The reason 
is to do with the way in which the 
musical scale is constructed. The 
root note of the scale is usually taken 
to be A above middle C, which is in 
octave 4 of appendix M. This note 
has a frequency of exactly 440 Hz at 
concert pitch and all computers and 
synthesizers calculate the other notes 
from this one such that each note is 
21/12 (the twelfth root of two) times 
the previous note. ‘Real’ notes are 
not exactly this distance apart but 
you need a good ear to be able to 
tell the difference. Table 3 gives a 
comparison between the Com- 
modore 64 frequencies and ‘real 
note’ frequencies for A above middle 
C and middle C. 

The result of all this is that if the 
values listed in appendix M do not 
sound right to you then feel free to 
change them quite drastically. (At 
0.06 Hz a step some values may 
change by quite a lot!) 

Finally, when using the rec- 
tangular waveform, there is a little bit 
more work to be done because we 
also have to set up the pulse width 
ratio. This value defines how wide 
the high part of the rectangular wave 
will be. (See also Fig. 2). Different 


Release 
Gate bit = 0 


1‘? 


arious types of waveform. 






High Pulse Width Low Pulse Width 
number register register 
54275 4274 
2 54282 5428 | 
3 54289 54288 


Table 2. Locations in memory of the frequency control registers. 
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Note name Commodore Real note 
frequency frequency 
A above middle C 440.0 Hz 440.0 Hz 
middle C 264.0 Hz 


261.6 Hz 


Table 3. Frequency comparison table. 7 
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values of pulse width can produce 
an enormous difference in the sound 
of rectangular waves. 

For each voice the pulse width is 
specified as a 12-bit number, giving 


4096 different steps. The high four 


Low frequency 
control register 


94272 
94279 
94286 


High frequency 
control register 


94273 
94280 
94287 


bits of this number are specified in 
the High Pulse Width register and 
the low eight bits are specified in the 
Low Pulse Width register. Table 4 
shows the locations of the high and 
low pulse width registers for each 
voice. 

The system has been arranged so 
that a pulse width of 4095 gives an 
output that is permanently high 
(maximum width) and a pulse width 
of O is permanently low (minimum 
width). In both cases the output will 
be zero. Normally, of course, we will 
be using values in between these 
two — typically 2048 which pro- 
duces a pure square wave. 


SCALING THINGS UP 


When it comes to actually storing the 
different notes you clearly don't want 
to have to store the values for them 
all, so some means of calculating 
them is required. The simplest way is 
to make use of the fact that the notes 
in one octave are twice the fre- 
quency of the notes in the octave 
below. This means that if we store the 
high and low frequency values for 
the highest octave we can calculate 
all the other octaves by successively 
dividing by 2. 

To do this easily the high and low 
frequency values must be combined 
into one 16-bit value. This can be 
done as follows:- 


16-bit freq = (high freq)*256 + 


low freq 


Incidentally, the inverse of this which 
restores the high and low values trom 
a 16-bit value is: 


high freq = INT(16-bit freq/256) 
low freq = 16-bit freq - high freq 


If you were to calculate the 16-bit 
value of the highest octave notes in 
appendix M of the User Manual you 
would obtain the values given in 
Table 5. 


The procedure for calculating 
any note is: 
Get the name and octave of the 
required note. 
Read the 16-bit frequency value for 
the given note from the highest 
octave values given in Table 4. 
IF the octave number is 7 
THEN 
Do nothing 
Bloc 
FOR count = 6 TO octave 
number STEP -1 
Frequency value 
= frequency value / 2 


NEXT count 


aetna 
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Note High 
name frequency 
® 137 
® 145 
D 153 
D# 163 
im a a 
F 183 
F# 193 
G 205 
GH ZLy 
A Aa 
A# 244 
B 258 







lower octaves can be calculated from it. 


Recover high and low frequency 
values from the 16-bit frequency 
value remaining and POKE these 
values into the high and low fre- 
quency control registers. 


SHAPING UP 


So far we have obtained a particular 
note being ‘played’ in a particular 
waveform. To make the note sound 
as though it were coming from, say, a 
violin or a guitar, we need to adjust 
its attack, decay and release rates 
and its sustain level. The effect that 
each of these parameters has on a 
note can be seen by referring to 

Figh. a. 

The Attack rate: This is the rate at 
which the note rises from zero to 
peak volume when the gate bit is set 
to l. 

The Decay rate: This is the rate at 
which the note falls from its peak 
volume to its ‘average’ or sustain 
level. 

The Sustain level: This is the pro- 
portion of the peak volume that the 
decay rate will fall to. 

The Release rate: This is the rate at 
which the note dies away when the 
gate bit is set to O, although very 
often a new note starts before the old 
note has fully died away. 

Each of these parameters can be 
varied in 16 different steps and since 
16 states can be coded into four bits 
of binary, two parameters can be 
fitted into one eight-bit register. For 
each voice, the attack and decay 
parameters are contained in the 
Attack/Decay cycle control register 
and the sustain and release 
parameters are contained in the 
Sustain/Release cycle contro! 


Table 5. Notes inthe highest octave and their 16-bit frequencies. 


Low 16-bit 
frequency frequency 
43 35115 
83 37203 
247 39415 
3] 41759 
210 44242 
25 46873 
Claw. 49660 
133 52613 
189 55741 
176 59056 
103 62567 
24] 66289* 


* NOTE — this value is not included in the list in appendix M because it is greater than 65535 
and therefore it cannot be ‘played’ by the SID chip. We have included it for completeness, partly 
because it is the 96th note and completes the eight octaves, but mainly so that the ‘B’ note of the 


register. Table 6 shows where the 
two cycle control registers for each 
voice are located. 

Within the Attack/Decay eycle 
control registers, the high four bits 
define the attack rate and the low 
four bits define the decay rate. Table 
7 shows the rates which the different 
values of attack and decay can 
select. Within the Sustain/Release 
cycle control registers the high four 
bits define the sustain level and the 
low four bits define the release rate. 
Table 7 also shows the rates which 
the different release values can 
select, and the levels which the dif- 
ferent sustain values can select. 

Appendix P of the User's Manual 
gives some sample ADSR settings for 
‘simulating’ some common musical 
instruments. Personally we re not very 
impressed by the results, because 
there's a lot more ‘real’ sound than 
just the waveform and envelope 
shape. We think that it is much more 
satisfying to create new and different 
sounds. (After all you could have 
bought a real instrument for the price 
you paid for the Commodore 64!). 


USING THE FILTERS 


You don't have to use the filters at all 
if you don't need them. In fact, you 
can produce hours of perfectly 
acceptable music without ever even 
thinking about them. The filters are 
really for ‘fine tuning’ a sound, to get 
just the quality you desire. For this 
reason they probably have more 
uses in sound effects than in music. 
In any case, the sort of filtering 
you want to do will depend on the 
waveform you are using. This is 
because the different waveforms all 
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Voice Attack/Decay cycle Sustain/Release cycle 
number control register control register 
] 54277 ' 54278 
: 54284 54285* | 
3 5429] 54292 
* NOTE — this register is incorrectly specified at 54286 in our version of the User Manual. 
Table 6. Locations in memory of the cycle control registers. 
Register Attack Decay/Release Sustain 
value rate rate level 
0 2msS 6 mS ee 
] 8 mS 24 mS 6 %& 
Z 16 mS 48 mS 139 
3 24 mS 72 mS 20 9 
4 38 mS 1l14mS 26 % 
5 56 mS 168 mS ao % 
6 68 mS 204 mS 40 %& 
7 80 mS 240 mS 46 % 
8 100 mS 300 mS a & 
S) 250 mS 750 mS 60 % 
10 500 mS Loo 66 
1] 800 mS 2.45 73 
12 LS 33 80 
i foe 9S 86 
4 oD iS 93 
5 8S 24S 100 


Table 7. Control register values and their effects. 


have different harmonic structures. 
Harmonics are waves produced 
in addition to the generated or ‘fun- 
damental’ wave. They are always 
integer multiples of the fundamental 
frequency and they have names 
which reflect this. For example, the 
second harmonic has a frequency of 
twice the fundamental, the third har- 
monic a frequency of three times the 
fundamental, and so on. 

Some waveforms, like the saw- 
tooth waveform, contain all the har- 
monics, others, like the triangular 
wavetorm, contain only the odd har- 
monics. In addition, the amount of 
each harmonic present depends 
upon the waveform. The triangular 
waveform, for example, contains har- 
monics in proportion to the recipro- 
cal of the square of the harmonic 
number: others, like the sawtooth 
waveform, contain harmonics in pro- 
portion to the reciprocal of the har- 
monic number alone. 

When you decide to use the 
filters it is mainly the harmonics 
which you will be filtering out 
because, like the envelope shape, 


they contain a lot of the ‘individuality’ 
of a given sound. 

The three filters are actually 
derived from one programable filter 
withn the SID chip. This filter can be 
programmed to act on any combina- 
tion of the three voices using any 
combination of the three filter types 
(high pass, low pass and band pass). 
The programming is done by using 
two filter control registers. One, 
called the Voice Input control regis- 
ter, at location 54295 decimal, 
selects the voices to be filtered. 
Table 8 shows which bits select 
which voices. 

The other control register, the 
Filter Mode control register, at loca- 
tion 54296 decimal, is also the mas- 
ter volume control. Table 9 shows the 
utilisation of bits within this register. 

Having selected the voice and 
filter combinations we require, all 
that remains is to set the cut-off fre- 
quency for the filter. The cut-off fre- 
quency is the frequency at which the 
filter operates. For example, at the 
cut-off frequency the low pass filter 
will start to reject frequencies. As the 


frequencies increase away from the 
cut-off the rejection increases. (See 
also Fig. 4). 

The cut-off frequency is specified 
as an | 1-bit number using two regis- 
ters in a rather strange way. The high 
eight bits of the cut-off frequency are 
specitied in the high cut-off fre- 
quency register at location 54294 
decimal. The low three bits are 
specified in bits O-2 of the low cut-off 
frequency register at location 54293 
decimal. Bits 3-7 are not used. This 
gives a total of 2048 different cut-off 
frequency steps. The SID chip filter 
can operate over the range 30 to 
12000 Hz so that each cut-off fre- 
quency step changes the cut-off fre- 
quency by about 6 Hz. This should 
be fine enough control for most 
applications. 

The procedure for using the filters 
is: 
Select the filter type and master 
volume to be used (POKE 54296, 
filter type and volume). 
Select the cut-off frequency (POKE 
54294, high cut-off: POKE 54293, 
low cut-off). 
Select the voices to be filtered 
(POKE 542295, voice combination). 


AND FINALLY 


That's all for this month and for this 
short series on the Commodore 64. 
We hope that it's been both interest- 
ing and useful. And keep watching 
this space — we'll be back with more 
Commodore goodies. (Editor permit- 
ting of course!). 





Bits O to 3 — Set master volume (O=Off, 15=Full volume) 


l filter control (1=Filter, O=Don't filter) 


Bit 1 — Voice 2 filter control (1=Filter, O=Don't filter) 
Bit 2 — Voice 3 filter control (1=Filter, O=Don't filter) 


Bits 3 to 77 — Do not concer us here. 


Table 8. Bit functions in the filter voice input control 
register (located at 54295 decimal). 





Bit 4 — Select low pass filter (] =On) 
it5 — Select band pass filter (1=On) 
it 6 — Select high pass filter (1=On) 


it'7.— Does not concem us here 


Table 9. Bit functions in the filter mode control 


register (located at 54296 decimal). 
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Feature: Graphics standards 





CT STANDARDS 





Our regular page explaining the meaning of 
the various symbols we use to make programs 


portable. 





t has been very encouraging to 
see the number of programs 


submitted using our standard codes Ior 
graphics ana other non-printabie 
sharacters. However, it has also be e 


increasingly clear that some of our reade 
haven't heard of them and this page is 
intended to set them out once again 

All standards tend to be irksome to 
adhere to but the ones laid out here are 
fairly simple and tend to make software 
easier to maintain by the programmer and 


simpler to understand for others. 


CONTROL THAT CURSOR 


Our original standards have now grown with 
] , bed x ae aes i nT ee ee 
the times. Machines such as the Commodore 


headaches. This is really specific to the PET 
where the character set can be displayed in 
reversed video. On machines which don't 


~ANtTC + , a eer tres i a ant - ~ tno 
nave (nis facility YUU snoulia elme 


mage of the one you want ana use tnat or 


~~ _ * i ~ 3 - rl CLD - trtrur,e ~~ «ter 
simply ignore it ana use anytning else you 


y 
d s 
ana alter the values used elsewhere in tne 


program 


THE GRAPHIC SOLUTION 


ars ne aes a a PS el - ert wan = + a Sa Re . ‘ 

It soon became obvious that the techniques 
pplied to the confusing cursor controls 

could also be applied to the grapnics 


syrnt ols Th ; tollowir Ste ndara is OW 1n 
nH yssssVlo 1g Cag 1OwW1ING S anaara 18 now 1in 


general use in programs published in 
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This can be taken further to include 
machines which use a pixel graphics set 
rather than pre-programmed PET-style 
characters and the series of codes for these 
is given in Fig. 3. As is nearly always the 
case there is one machine to which the 
standard shown in Fig. 3 does not apply — 
Tangerine’s Microtan/Micron. This machine 
uses a four by two cell structure for its pixel 
graphics instead of the Prestel/Teletext three 
by two cell. The method for calculating the 
value to assign to ‘P’ is shown in Fig. 4, and 
is fortunately nice and simple. 


MAKING REMARKS 


Many people scorn the use of REMs within 
programs but, during the development at 
least, they are extremely useful. One of the 
documentation methods that we use is to 
keep our back-up copy of our programs on 
300 Baud CUTS tape with all the REMs in 
place: the working copy, be it on tape or 
disc, is REMless in order to save space 


9) 


3999 REM ** CRASH PROOF INPUT 

4000 INPUT “THE NUMBER OF ENTRIES 

ha .- ~~ ] = | } ~ ~* } ~~ ” + ~~» ] ‘ > ~- 

A remarkable number of submitted 
programs have jumps that go not to the 
relevant point in the program, but to the 
REM statement. This can cause severe 
problems when re-numbering after 


i. en 2 Me 
x - 5 , oO?) {3 a ee yl ele - lea dis r I ) Ang s s ivio. 
VIC which have a dual Shift capability can removing the REN 
now be incorporated, as can those systems If a graphics character or 


which use Control key functions. to be displayed in a listing (as opposed to 
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The recently introduced BBC system POKE codes or CHRS odes) then they 
offers pre-programmed function keys whict are indicated by the method shown in Fig 
we are glad to say, can also be handled by 2 
our original coding system. It’s nice to see Several people have asked what the 
just how well adapted the original standards relationship between the POKE value for a 
have become over the last two years character and that of its shifted graphic 
(Indeed, a whole series of Looks is using might be. In general the shifted version ot 


ALPHA KEY TO BE SHIFTED 


them as its de-facto standard 
standards for the cursor controls are given 


in Fie. 1. 


ne 
The any character will be 64 greater than the 
; lis applies to both 


-ET and MZ-80K systems in all cases INDICATES ‘SHIFT’ KEY 
Clear Screen 
HOMe cursor 
Cursor Left 
Cursor Right 
Cursor Up 

Cursor Down 
REVerse video on 
Tern tt. GFF 
SF aCe 

Control key 
Function key 
Graphic left 
Graphic right 


a 
CHOM 
4 ee Oe 
CCR 
EG 
geen 
CRE J 


NUMBER OF TIMES IT OCCURS 


Fig. 2. The way we indicate block 


graphics on machines like the PET 
and Sharp. The VIC system of Shift 
Left and Shift Right is shown in Fig. 14. 


(Orr a 
CSPC4 
CCT 
CfroJ (HHC) 

CG= J (VIC /ML—-BCA? 

CG] (VIC/MZ-S90A) 
Fig. 1. Our extended set of cursor control standards includes four new 
functions. 


Fig. 4. To convert a Tangerine pixel 
code into its blocks, simply decode 
the number into its binary or Hex 
value and fill in the relevant 
squares. 





To indicate more than one of the above, an 

optional number can be placed within the 

brackets; [4 CL], etc = 2 = os * = s8 
The use of square brackets has raised " n— . e. eS oe ee 

one or two queries. [he reason tor this (Po) (P1] (P2] (P3] [P4] [P5] (P6) [P7) (PSI 

choice is that most o! the common 

microcomputer BASICs don’t use them for = Ae a = ae baer Sea ieee aa ae ota 

t, at least oO * ® 


specific functions. In tact, at least one s s ® 2 . . * « ¥ 2 * = 8 r 
machine provides an added bonus by (P16] [P17] [P18] [P19] (P20) [P21] [P22] (P23) [P24] [P25] [P26] (P27) (P28) [P29] (P30] [P31] 


returning a Syntax Error if they are found, a i as eo ete 
useful check in case you type them in by : » . * “ © a = os 
mistake. i a * * * ry « a ” ® 6 * 8 * * 

The code [SPC] wa [P32] [P33] [P34] [P35] [P36] (P37) [P38] [P39] [P40] [P41] [P42] [P43] [P44] [P45] [PAG] [P47] 


, 


s ad 

of cursor control codes to get over the 8 = #8 © - o6 ry - as ® =» =e 
ae iced ne ig Le Peer s e8 857 58 OB 
rroblem of indicating just now many spaces sd e . 2 s . ad 

bling tte: ae ae yaa ce ee Sie ess s8 88 #88 88 88 os oe 28 88 8e ee eee 

The cig age a aries needed [Pag] [P49] (P50) (P51) [P52] [P53] (P54) [P55] (P56) [P57] (P58) [P59] [PEO] (P51) (P62! (P63! 
he other common variant of the code tor 

spaces is used by the ZX people. Their 

choice was — and this crops up in tne 


(P9} (P10) [P11] (P12) (P13) [P14] [P15] 


Fig. 3. The standard pixel codes; they will work on most computers which 


various newsletters they publish. employ this technique as well as for Teletext and Prestel. 
The code [RVS] has caused a few 
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This month our reviewer looks at several books 
which cover aspects of computing that go beyond 
simple BASIC programming on your micro. 





reviewed a book on fifth genera- 

tion computers recently. After 

spending ages wading through it 
I wasn't impressed. If only I had 
waited a bit longer | could have 
saved myself a lot of time, for this 
month a book has arrived that gives 
a splendid explanation of what the 
fifth generation is all about. It is also 
probably the most important com- 
puter book of the year. Besides this, 
this month's selection of books 
includes three books for the BBC 
Micro that are essentially courses on 
how to go beyond BASIC with it by 
using. other languages, and one 
about writing games in Pascal. The 
sixth and final book brings us neatly 
in a full circle, because it is about 
writing expert systems to run on a 
micro. Expert systems, of course, are 
at the heart of the fifth generation 
developments. 

The Fifth Generation by 
Edward A. Feigenbaum and Pamela 
McCorduck is fundamentally a pro- 
paganda job to alert American 
government and industry to the 
authors’ view that America is losing 
its lead in computing over Japan at 
the rate of one day per day as a 
result of the Japanese national plans 
for the development of fifth genera- 
tion computers. This assertion is never 
really shown to be true, though, and 
while I don't want to dwell on the 
politics of fifth generation develop- 
ments, a couple of remarks may be 
worth making. There is a fundamen- 
tal difference between the 
approaches of the Americans and 
the Japanese computer companies 
to research. The American com- 
panies are all in intense competition 
and unlikely to share their findings, 
while the Japanese companies are 
collaborating with each other. At the 
same time a great deal of research is 
going on in American computer 
laboratories on the topics that are 
involved in developing the fifth 
generation. It has not yet been 
shown that the Japanese approach is 
superior to the American. Secondly, 
the Japanese plans for the fifth 
generation require that technological 
breakthroughs be achieved as 
scheduled activities. This shows 
clearly the nature of the plans and 
the degree of risk that is involved. 
The argument goes that even if the 


Japanese only achieve a small pro- 
portion of their aims they will still 
achieve an awful lot. But how clear is 
it that this means they will achieve 
more than the Americans? 

Anyway, to the book. Feigen- 
baum is Professor of Computer 
Science at Stanford University and, 
as head of the Heuristics Program- 
ming Project there, is one of the 
founding fathers of Artificial 
Intelligence and has established one 
of the world’s major Artificial 
Intelligence groups. This makes him 
as well qualified as anybody to 
assess the fifth generation plans. The 
first part of the book contains a very 
readable description of the aims of 
the fifth generation, of which I| shall 
say no more having devoted a good 
deal of space to it only recently. In 
passing, this part of the book 
demonstrates quite clearly why 
today's children need to know about 
computers and computing by show- 
ing the extend to which their futures 
are likely to depend on them. So if 
anyone still doubts the value of hav- 
ing computers in every school in the 





country, let them read this book 
caretully. 
The second author, Pamela 


McCorduck is a writer on science 
and I take it to be her influence that 
has resulted in the most unfortunate 
style with which some parts of the 
book are written. To illustrate, Part 2 
begins with ‘Pamela McCorduck was 





introduced to the idea of artificial 
intelligence... in 1959, by Feigen- 
baum as it happened, when comput- 
ing, its natural child called artificial 
intelligence and certainly they them- 
selves were all much younger. 
Although it is a matter of taste, this 
makes me cringe: it smacks of ‘fac- 
tion and tends to diminish the 
credibility of the book. An account of 
the development of artificial 
intelligence proceeds in this style 
and while Feigenbaum obviously 
belongs in it (self-referentially or not) 
it is not clear to me what McCorduck 
is doing there even if she was a 
spectator. 

However, il the style of the book is 
irritating at times, its content is sut- 
ficiently fascinating to make up for 
that. It explains very well that 
knowledge and information have a 
value of their own, and unless it is 
understood that knowledge is valu- 
able the whole basis of the fifth 
generation is inscrutable. That 
readily available computing power 
and capability can do so much more 
than simply store knowledge, and 
that it can enhance and even create 
it, is perfectly illustrated by the story 
of how one of the most influential 
books on the design of VLSI circuitry, 
Introduction to VLSI Systems by 
Mead and Conway, was brought to 
fruition. Its final form, and the short 
time taken to reach it, both resulted 
directly from the instant availability 
of the draft manuscript to many 
interested parties via the ARPA net- 
work. Making the draft manuscript 
available by this computer com- 
munications network allowed many 
people working in VLSI design to 
read, test, comment upon and sug- 
gest amendments. and _ turther 
material for it. This form of collabora- 
tion and opportunity for interaction 
permitted the book to take a final 
form, on a very short time scale, 
which could have been achieved in 
no other way. Thus, the existence of 
a computer communications network 
led directly to the creation of an 
important body of knowledge. 

The book itself is a fine account of 
all the factors involved in the fifth 
generation developments. Even with 
a rather hectoring propagandist 
approach and its unfortunate style, 
its contents are never less than fas- 
cinating and stimulating. 

The sub-title of Beyond Basic 
by Richard Freeman is ‘6502 
assembly language programming for 
the BBC Microcomputer, and this 
says exactly waht the book is all 
about. It is a carefully paced course 
of assembly codé programming 
using the BBC Micro's ‘BASIC assem- 
bler’, with which assembly code seg- 
ments can be inserted directly into a 
BASIC program by enclosing them in 
square brackets. The course covers 
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the usual standard material on 
assembly code programming from 
simple arithmetic through loops and 
branches, addressing modes, mul- 
tiplication and division to the use of 
the stack, masking and subroutines. 
It also covers the oddities of the BBC 
Micro's assembly code programming 
system, such as how to generate the 
two-pass assembly process that is 
necessary, for example, to deal with 
forward references to labels in 
assembly code programs. Al- 
together, the book provides an 
absolutely standard and _ solid, 
though unimaginative, introduction 
to its subject. It should teach the 
newcomer to assembly code _ pro- 
gramming on the BBC Micro every- 
thing that is necessary to achieve 
competence. It is, however, difficult 
to recommend the book to anyone 
outside its target audience, as the 
material on assembly code is 
covered by many other books in 
exactly the same form, and the 
material on the oddities of the BBC 
Micro is obviously of no interest if you 
use another computer. 

LISP on the BBC Microcom- 
puter by Arthur Norman and Gillian 
Catell and FORTH on the BBC 
Microcomputer by Richard de 
Grandis-Harrison are both manuals 
to accompany Acormsoft's implemen- 
tations of the respective languages 
for the BBC Micro. The LISP book is 
impressive and interesting, but it is 
my impression that it would be dit 
ficult for the newcomer to LISP to 
progress to the writing of substantial 
and useful LISP programs with it 
alone. It presents many examples, 
but does not spell out the underlying 
principles of LISP. It also presents a 
good deal of material that is of no 
interest to the newcomer to LISP, but 
which is only of historical interest. It 
also passes rather quickly from 
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introducing the features of LISP to 
presenting rather sketchy outlines of 
medium-sized projects for program- 
ming in LISP. Some of the latter are 
rather imaginative, from a route-finder 
to an. adventure game. Thus, 
although not well suited to the begin- 
ner, it is valuable as a source of 
reference and as a source of ideas to 
the fairly experienced LISP program- 
mer with a BBC Micro. This, 
however, makes the area of interest 
in the book a rather restricted one. 
The FORTH book is also a good, 
even essential source of reference for 
FORTH on the BBC Micro. Unfor- 
tunately, despite a length of almost 
300 pages, it contains few examples 
programs for applications of any 
consequence, so that it is short on 
motivational material which is par- 
ticularly necessary with a language 
as unreadable as FORTH. This 
FORTH book was mentioned by D. 58. 
Peckett in his article ‘Going FORTH 
Again’ in the July 1983 issue of Com- 
te as N puting Today as suffering from pro- 
(= =. ee duction delays. Acornsolt assure us 
i r= that their production problems have 
now been solved and that the book, 
and the language itself, are now 
= £ readily available. Despite this, 1 can- 
FY Oe not recommend that you rush out 
FPS eS and buy it, even if you are a FORTH 
“% foe 1] Se] Sg enthusiast with a BBC Micro, as it is 
ig LP) lied much too stoday for my taste. 
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To show that it is possible to write 
an interesting book on programming 
in a language other than BASIC for a 
specitic micro, it is only necessary to 
turn to Pascal Programs for 
Games and Graphics in UCSD 
Pascal for the Apple by Tom Swan. 
Here we have a series of programs 
for imaginative games written in Pas- 
cal with a beautifully clean and clear 
style. Thus, at the same time we have 
a mine of ideas for games and for 
graphics (since all the programs 
make good use of graphics) as well 
as a practical primer on the writing of 
well-structured programs. Even if you 
don't have a Pascal system, the book 
is worth considering, tor the pro- 
grams are so well written that the 
task of translating them to BASIC is 
as easy as it can be. A suite of pro- 
grams for a graphics editor is also 
given: that is, for a system to handle 
graphics in much the same way as a 
word processor handles text. Con- 
verting this for your system could also 
be a rewarding task. In this way, the 
book is a good one for its target 
audience, but it is also of value to 
others. Can we have more books like 
this please? 

Also, can we have more along 
the lines of Build Your Own Expert 
System by Chris Naylor? I have to 
admit that I don't much care for his 
style of presentation or his sense of 
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humour, and that I would rather not 
have had to plough through his first 
two chapters. The first, ‘Why expert 
systems?’ takes 12 pages to give the 
answer ‘Because that is what the 
book is about’. The second, ‘A statis- 
tical scheme’ is a treatment of basic 
probability theory, not an attractive 
topic, but even less so when we see 
Chapter 3 is called ‘Avoiding pro- 
babilities'! However, I can forgive 
more than this for the idea behind 
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the book which is to show us how to 
write Our Own expert system on our 
own micro. It includes program list- 
ings for the Spectrum and Apple II, 
and although there is an error in the 
third line of the very first program, 
this is fortunately not typical of all the 
programs in the book. In fact, all the 
Spectrum programs are reproduced 
from listings on the Sinclair printer 
and so can be presumed to be 
accurate. 

The last two books are the kind I, 
for one, should like to see more of. By 
demonstrating novel and imagina- 
tive ways of programming and using 
micros, they can only help the pro- 
gress of the whole micro scene. 

This month's books are: 


The Fifth Generation by Edward 
Feigenbaum and Pamela McCorduck 
Michael Jospeh, 275 pages, £9.95. 
Beyond BASIC by Richard Freeman, 
BBC and NEC, 256 pages, £7.25. 

LISP on the vege eae riage by 


Arthur Nom and Gillian 


CU Cc 


Acor mate 197 5 pages, £7.50. 


hee on the BBC Lancia ciao 


by Richard de  Grandis-Hanrjiso: 

Acornsoft, 280 pages, £7.5C 

Pascal Programs for Games and 

Graphics by Tom Swan, Hayden, 214 

pages, £15.95. 

Build Tous Own peer A eines by 
Chris Naylor, Sigma Technical Press, 249 

pages, £6.95. 


The Key to Spectrum Machine Code Success. 


Picturesque’s MACHINE CODE SYSTEM Is used and recommended by cabal ofessional software writers, 
documentation and the friendly, easy-to-use programs have 


et the excellent 


n highly recommended for el lalal- a 


You willonly buy one Machine Code System Sobuy the best, the one the professionals use. 
ASSEMBLER 


Completely self-contained, | 
with its own line editor, giving 
an easy-to-read 40 column 

tabulated listing. Auto line 
numbering, line renumbering 
and auto-tabulation make 
this the fastest and easiest 
Assembler to use. 5 
Character Label names. 
SAVE/LOAD/VERIFY both the 
listing and Machine Code. 
Accepts Decimal or Hex 
numbers and ALL Z80 
mnemonics. Assembler 
Directives:— ORG, END, 
DEFB, DEFW, DEFS, DEFM, EQU, 
DEFL. FAST ASSEMBLY:— 1K of 


machine code in 7 seconds. Full error detection. 


32 page Owner's Manual. 


£38.50 


INCL. VAT & P&P. 


complete system 


MONITOR 


The ideal tool to help the © 
beginner get started, yet it 
contains all the commands for 

the experienced programmer 
to run and de-bug machine 
code programs. 
inspect and alter memory 
contents in Hex or ASCII 
characters. Breakpoints 
and full Register display. 
Disassemble any part of 
memory, ROM or RAM. 
Dec-Hex-Dec number 
conversion, plus BIOCK 
Move, Insert and Delete 


32 page Owner's Manual. Can reside in memory with the 


Assembler (48K machines only) to give a o7 50 
» 


INCL. VAT & P&P. 


Themost valuable software purchase you will ever make. 


Available from the "SPECTRUM" chain of stores, branches of Jonn Menzies and allgood computer 
shops, or by mail order by sending cheque/PO to: 


PICTURESQUE, 6 Corkscrew Hill, West Wickham, Kent, BR4 9BB. Send SAE for details. 
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LORDS OF TIME 


Joins our range of acclaimed pure-text puzzle adventures, at £9.90, for: 
BBC 32k COMMODORE 64 SPECTRUM :sk LYNX 48k NASCOM 32k ORIC 48k ATARI 32k 





ENE NEE NEE NNN NEE NEE NEM ME 
g 


ADVENTURE 
REVIEWS 


ADVENTURE 
REVIEWS 


“Adventures which have a 


of detail and number of 


“This has to be the bargain 
of the year. If adventures 
are your game then this 
(Colossal Adventure) is 


fast response time, are 
g spectacular in the amount 


x 


your adventure.” 
—-HCW, 5 Sept 83 


“Colossal Adventure Is 
simply superb. Anyone who 
wishes to use adventures in 
an educational setting 
really must use and see this 
program as it emulates 
Crowther and Wood's 


Ct SS... 
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locations, and are available 
to cassette owners ..!am 
extremely impressed .. The 
Level 9 Adventures are 
gj superbly designed and 


cX< 
<< 


programmegd, the contents 
first rate. The implementa- 
tion of Colossal Cave 

(Adventure) is nothing short 


of brilliant: rush out and buy 
it. While you're at it, buy 


a) 
Sy 
a 
yi 
Sy 
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Sy 
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a 
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their others too. Simply 
smashing!" 
- SOFT, Sept 83 


‘| found Dungeon 
exceedingly well planned 
and written, with a fast 
response. There are well 
over 200 locations and the 
descriptions are both 
lengthy and interesting. The 
objects number about 100. 
lt could therefore take 
some months to explore 
the whole network, giving 
many hours of enjoyment in 
the process. 

~C&VG, Sept 83 


‘The descriptions are so 
good that few players could 
fail to be ensnared by the 
realism of the mythical 
worlds where they are the 
hero or heroine .. .great fun 
to play.” 

—Which Micro?, Aug 83 


‘My appetite has been 
whetted and | intend to get 
my Own copy (of Snowball) 
to play. 

~ What Micro?, Dec 83 


MIDDLE EARTH ADVENTURES 


1: COLOSSAL ADVENTURE 

A complete, full size version of the classic mainframe game 
“Adventure” with 70 bonus locations added. 

2: ADVENTURE QUEST 

Centuries have passed since the time of Colossal Adventure 

and evil armies have invaded The Land. The way is long and 

dangerous; but with cunning you can overcome all obstacles 

on the way to the Black Tower, source of their demonic 

power, and destroy it. 

3: DUNGEON ADVENTURE 

The trilogy is completed by this superb adventure, set in the 

Dungeons beneath the shattered Black Tower. A sense of 

humour is essential! 


THE FIRST SILICON DREAM ADVENTURE 


1: SNOWBALL 

The first of Pete Austin’s second trilogy. The giant colony 
starship, Snowball 9, has been sabotaged and is heading for 
the sun in this massive game with 7000 locations 
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masterpiece so well. For 
those who wish to move 
onto another adventure of 
Similar high quality, 
Dungeon Adventure is to be 
recommended. With more 
than 200 locations, 700 
messages and 100 objects 
it will tease and delight!” 

- Educational Computing, Nov 83 


Colossal Adventure is 
included in Practical 
Computing’s Top 10 games 


choice: “Poetic, moving and Ry 
tough as hell.” 

-PC, Dec 83 

“To sum up, Adventure 

Quest is a wonderful 

program, fast, exciting and 
challenging. If you like 
adventures then this one is 


for you" 
—-NILUG # 1.3 


“Colossal Adventure . . For 
once here's a program that 
lives up toitsname..a 
masterful feat. Thoroughly 
recommended’ 
—Computer Choice, Dec 83 


“wholly admirable” 
_ - Your Computer, Sept 83 


THE LORDS OF TIME SAGA 


7: LORDS OF TIME 
Our congratulations to Sue Gazzard for her super design for 
this new time travel adventure through the ages of world 
history. Chill to the lce-age, go romin with Caeser's legions, 
shed light on the Dark Ages etc. etc. We'll be selling this 
game mail-order from January 1st 





Price: £9.90 each (inclusive) 


Level 9 adventures are available from good computer shops, 
or mail-order from us at no extra charge. Please send order, 
or SAE for catalogue, to 


LEVEL 9 COMPUTING 


Dept ©, 229 Hughenden Road, High Wycombe, Bucks 
HP13 5PG 


Please describe your Computer 
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Software: Genie monitor 


G-MON 





Jonn Fairbairn 











COLOUR GENIE 
MONITOR 





G-Mon is a comprehensive machine code 
monitor written for the Colour Genie. Now 
there’s no excuse for not getting to grips with 


your Z80. 





ike many people who learnt 
Z80 machine language on the 

Video Genie/TRS 80 system, 
my tirst monitor was T-Bug. In my 
innocence ! used this for months, 
thinking it must be the bee’s knees 
as it was produced by Tandy. As my 
experience grew | became 
frustrated with it, and was pleased 
to see patches in computer 
magazines for some of the 
‘bug -bears | had encountered. 
Eventually it dawned on me! should 
get another monitor. 

I have been through several 
now, but none of them seems to give 
me what I — and | believe most 
micro users — really need. 

Most monitors seem to be 
digests of systems written for 
mainframes and minis and we all 
know that people who work on these 
machines never make mistakes. But 
people like me do type J 5323 
instead of J 5332, and our programs 
do jump to non-existent points and 
disappear into the wide blue 
yonder. People like me are always 
forgetting to fix breakpoints after 
setting them, and with the constant 
gnashing of our teeth as we 
relentlessly type our programs back 
in after the inevitable crash, we 
must all be looking more each day 
like the Laplanders who chew 
leather for a living. 

But | lived lazily with all these 
problems until recently my Video 


Genie ground toa halt. This was a 
marvellous opportunity to upgrade 
and | didn't have to stop and think 
what to buy. All the books and tapes 
I'd bought for the VG couldn't be 
allowed to go to waste, so it had to 
be the only compatible machine, 
the Colour Genie. 

Cutting a sob story short, it was 
nothing like as compatible as I'd 
been led to believe, at least where 
machine code is concerned. 
Conversion is possible, but only if 
you can get at the machine code — 
and | couldn't get at that as | 
couldn't get my monitor in. Before 
apathy set in and commercial 
monitors appeared in the shops, | 
decided to write my own monitor 
and to get rid of all those niggles I'd 
had in the past. The result is the 
program here. It isin BASIC, of 
course, as that is the only way to get 
it into the Genie without another 
monitor, but once it isin you can 
save itasa SYSTEM tape. It 
occupies only 7/0 bytes at the top of 
memory. 


LOADING G-MON 


On power-up you should protect 
high memory for the machine code 
by answering MEM SIZE? with 
30000. Then type the program in 
and CSAVE it, just in case. Then 
RUN the BASIC program (it takes 


about 12 seconds). Nothing visible 
happens — all that is happening is 
that the values READ in by the 
DATA statements are being put, in 
hexadecimal form, into high 
memory in the area from &H7CDO 
to &H7FD 1. 

When the prompt returns you 
no longer need the BASIC 
program, except as a back-up. If 
you have entered the data correctly 
you should get a checksum of 
86325. You should get a cleared 
screen and a message saying 
G-Mon 1.1 followed by a prompt, $ 
in this case. Now you should check 
all the commands are operating 
pertectly, so let's run through them. 


G-MON COMMANDS 


Type S and you will return at once 
to BASIC, with your high memory 
still protected. To return to G-Mon 
trom BASIC simply CALL 7CDO. 

Type D (the comuter responds 
with D:) and then put in a four- 
tigure hexadecimal number (eg 
Q000 will give the start of the ROM, 
7CDO the start of G-Mon) and as 
soon as you have typed the fourth 
digit the comuter will display (or 
dump) a screentul of memory, 
neatly tormatted for easy checking 
(128 bytes at a time). Then the 
prompt $ asks for anew command. 
This is one of the facilities lacking 
in T-Bug, by the way (see Photo 1). 

Type R next and the computer 
will display the values of the 
registers (see Photo 2). You 
obviously have to be familiar with 
Z80 machine language to make 
sense of this. Capitals are used for 
the names of the main register set, 
lower case for the alternate 
registers. SP stands for Stack 
Pointer and BP for Break Point (ie 
the location of the last entered 
break point). The values shown are 
those after the last machine code 
instruction, which can include some 
operations caried out by G-Mon on 
returning trom your program. This 
command is normally meant to be 
used in conjunction with a break 
point, in which case it is called 
automatically and the register 
values shown are those at the time 
of the break point with no 
interference from G- Mon. 

Now try M. The computer 
responds with M: and you then have 
to give it the four-figure hex 
address at which you want to start 
putting data into memory. This is 
the machine-code way of doing 
what our BASIC program did. 
G-Mon then repeats the address 
and shows its current contents. You 
can then insert data at that point. 
Each entry must be two hex digits. 
As soon as you have typed the two 
digits that value is stored in memory 
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at that point and the next address is 
printed To stop inserting data | tt _ 
X at any time e and you will return tc 
the prompt $. To Epcos sacle We 


ae: through Daca h without. 
aiiecting the memory contents, type 
either t for for ward or $ for back. In 

atter case * will be printed to 
warn you you are going pack (this 
back-stepping is another feature not 
found in T-Buc 

Not e that th e Rer t key will 


work atte all oe commands. 
ot insert data into 


ann 
L HS Pe a See any at +0 1310¢ if he | 
\M (if you try it is just ignored) 
and of course you should avoid 
itting yo ling in the area used by 
fama Mion: ft CDO to TR FFF ( TED? to 


L 
is its stack area). 

To see Mat work, type M:47BF 
and ee the 47BF:20 prompt type 
51. You should see Q at the bottom 
(the screen 


right of see creen 

memo! ies 4400 0 47BF). 
yu can also mae what you ve 

nserted ~ running through 


memory with M or using D tor 


Try a jump command now: type 
J. This kealie sth e computer to start 
execution of a program. For the 


ss you are prompted by J: 

o insert a four-tigure 

you make a mistake 

yOu Cé ‘*kspace. In the case of 

M and D this doesn't matter, but in 

the case of J (and T-Bug) the results 
tuld be catastrophic if the 


start adare 


» 
Qangnad 
() 
S22 ed 
r A 
cas 
r 
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computer acts on your mistake. 
Therefore, asa a he y measure, 
nce you have put the address in 


you have to type J again to confirm 
can ie bee Typing any 
other key aborts the instruction and 
returns you to hea prompt $. Then 
you can try again. 

Try J:1A19J and you will return 


exe ented 


to BASIC (equals the S command). 


BHEHRRE 
BEES:23 33 33 38 GE $3 $3 


oe ie can try J: 7CDOJ and you will 
jump to 2S start of G- ae as your 
screen display will tes if Other 
jumps have to be controlled, so you 
must write your program tirst. 

Remember iicinentally, al] 
programs you write should return to 
a control point when you are 
debuggi ing them. In this case they 
could end with a jump back to 
G-Mon (C3 DO7C). 


BREAKING OUT 


Often when you run a program you 
want to be able to stop it 
somewhere, typically to check the 
state of the registers and memory at 
that point to ensure the programs 
has no bugs so far. For this you 
insert, with B, a breakpoint (like 
STOP in BASIC) at the address 
where you want to stop. This has to 
be a sensible one — you cant stop 
in the middle of an instruction — 
but if you've done it properly, when 
you run your program (with a J) the 
program stops as soon as that 
address is encountered by the 
program counter. 

G-Mon does three things in that 
case: it prints out the state of the 
registers at i time of the 
breakpoint, it returns the user to the 
prompt te and it repairs the 
breakpoint. This means you do not 
have to oress F to fix the break 
point, as in other monitors. I have 
also done away with the G (for Go) 

command as | have never used it. 
For single-step breakpointing 

th rough a program | use another, 
much larger utility. 

Break is one of those 
instructions that can play havoc 
with a program if not done right. 
Therefore when you type B and are 
prompted with B:, you insert your 


Bit88 $8 $8 $3 97 98 29 2 

Sbee-3a te Se SE Gp 18 $2 3 
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hex address in the usual way but 
have to type B again to contirm it 
(any other key aborts the 
instruction). You will then be 
prompted with J: to ensure you do 
perform the program and clear the 
breakpoint. You then type in the 
starting address and J and on return 
to $ (if your program flow is not 
faulty and has not avoided the 
break address) the break point will 
have cleared. 

Note that you can't set a break 
point in the ROM. 

To try this command, first put 
the following instructions into 
memory with the M command 
starting at address 6000: 21 CC 45 
3E 51 77 C3 D07C. Then type 
B:6006B and in response to J: type 
GQ00]. You should see a little flash 
in the middle of the screen and the 
registers will be printed. The only 
ones you used were AF and HL and 
these should read 5100 and 45CC 
respectively. 

But what was that little flash? 
One of the things that most 
intensely annoyed me about my 
previous monitors was that on 
return to the prompt they wiped out 
what was on the screen. If I was 
debugging a graphics or text 
display, that wasn't a lot of help. So 
G-Mon has a Pause command. By 
hitting P you insert a pause just 
before the machine returns from the 
break point. To see this in action, 
type P. An * will be printed asa 
warning then type in the same 
break point and jump point as 
above (6006 and 6000). The * is 
repeated after the B instruction. On 
this occasion you should see that in 
the middle of the screen isa Q. The 
display will pause there until you hit 
any key, then you return to $ with 
the breakpoint and the pause 
cleared. 


TAPE STORAGE 


If the point you jump from does not 
pass over the break point you have 
set you have lost control and can 
suffer irreversible damage. If you 
are worried that might happen and 
don't want to retype your program, 
the next command is the crucial 
one. W for write writes a SYSTEM 
tape. After W you will get W:. You 
now have to insert three addresses 
in the right order: the starting 
address of the area you want to 
copy; then the end address of the 
area you want to copy (inclusive); 
then the address at which execution 
is to begin (this may be in another 
area). 

Then you have to give your 
saved file aname. Since the 
SYSTEM command reads only the 
first letter of a name it is pointless 
giving it along name, so only one 
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letter is allowed. Type that letter, 
which is then displayed. Then a 
final check — if any of your input is 
wrong hit any key except W and the 
instruction will be aborted. If you 
are happy, switch on your cassette 
to record and hit W. An * will be 
displayed to warn you recording is 
taking place. When recording is 
finished the prompt $ returns (you 
have to switch off the cassette now). 
The first priority is to save 
G-Mon asa SYSTEM tape. The full 
instruction for this is W:7CDO 7FD 1 
7CDO GW. You will then have 


Listing 2. BASIC listing for G-MON. 


1@ FOR I=&H7CD@ TO &H7FD1 
11 READ A: POKE I,A 
12 T=T+A 
13 NEXT 
14 PRINT “Data checksum =";T 
15 END 
' 


17 DATA 195,130,127,71,45,77,111,110,32,49,46,49,0,65,70, 
66,67,68,69,72,76,97,102,98,99,180,101,104,108,73,88,73 42 
' 


19 DATA 89,83,80,66,80,0,0,8,08,0, 
265,208,124,0,0,0,0,192,80,8,0 
' 


21 DATA 0,80,0,0,0,0,68,80,0,8,0,0,81,213,205,73,8,209,201, 
62,42,24,189,62,58,24,6,62,13,24,2,62 
' 


23 DATA 32,245,213,205,51,0,209,241,201,124,205,62,125,125, 
245,2360,240,15,15,15,15,205,75,125,241,230,15,245,254,10, 48 


56,2 
' 


25 DATA 198,7,198,48,205,49,125,241,201,254,48,216,254,58,56, 58 
9,254,65,216,254,71,48,5,214,7,214,48,201,55,201,205,29 
' 


27 DATA 125,2805,89,125,56,248,24,211,205,89,125,216,24, 205, 
265,129,125,205,118,125,7,7,7,7,79,205,110,125,129,119, 





71,208,124,209,127,8,112, 
18,8,0,0 


Listing 1. Colour Genie patch. 


created a SYSTEM tape with file 
name G. To load thi is, or any other 
SYSTEM tape, go back to BASIC, 
type SYSTEM and after the prompt 
? type the file name. Switch on the 
cassette. When the file is found and 
being loaded, asterisks blink on and 
off in the usual way. On completion 
of loading you will be prompted 
with ? again andc an load more 
programs (it is your responsib lity y to 
see they don't overlap). a ah 
loads in about tour second 

When all loading is finished 
answer ? with / then the decimal 
address of the point you want start 
execution, or ype alone and 
execution will start at the address 
specified for the last loaded tape. At 
any future point if you RESET. you 
can get back to your machine-code 


cg 


G-MON 





programs in the same way without 
re-loading. 
If you ar e already in G-Mor 
cat to load another tape, you 
can call the SYSTEM command up 
from ie ROM by means of the 
instruction J:O2E 
a you are work 
and G-Mon together, it 
mesma ks lity to set sufficient area 
free at power-up to allow room to 
all your machine code programs 


above BASIC. Those not w« 


cing with BASIC 


1S VOUT 


BASIC can use memory from 5800 
up. The low-res graphics screen 


starts at 4400 and the high- 


resolution display area starts at 


4800. 


CONVERSIONS 


G-Mon is not suitable for other 
machines because it uses system- 
dependent code, natusally 
Co lour Genie owners can relocate 
it to tl hig tp shagetaiampuede love 


lo yading as above the 1runnina the 
program in listing | hich should 
Ra eded HbEO neine MG 


{ In it 
nee Es 6000 J then, with M, insert the 


1Owl ing data at tn 


BD9Q1: 7E 
BD9D: ‘7E 
BUABS 7e . BOSD: 70 
BDFE: 7E Brat 7D 
BE1B: 7E a 
Slap ae eA the revised 

G-Mon on tape with W:BCDO BFD | 


BCDO GW. 


39 DATA 221,225,225,209,193,241,217,8,225,299,193,241,237, 
123,7,125,42,255,124,233,245,213,285,73,8,209,241,237, 


115,7,125,49 
' 


41 DATA 29,125,245,197,213,229,8,217,245,197,213,229,221, 
S29 (203 p e209 9217468523 1,1235 79125, 205,201,1,33,28,125,17, 


221,124,14 
' 


43 DATA 3,6,4,205,43,125,26,205,49,125,19,26,205,49,125,19, 


205,39,125,126,205,62,125,43,126,205,62,125,43,16,228,205 
' 


45 DATA 43,125,13,32,226,237,91,5,125,33,1,125,1;3,0,237,176, 


195 448,121 9 265,39,1425,33,6,125,285,126,125,2805,29,125 
' 


47 DATA 254,66,194,146,127,42,5,125,17,1,125,1,3,8,237,176, 


43,58,4,125,167,40,12,151,58,4,125,17,68,126,205,35 
' 


49 DATA 125, 24,3,17,75,126,114,43,115,43,54,195,205,43,125, 


205,63,2 
' 


62,74,205,49,125,33,0,125,195,23,126,58,4,125,2805, 35,125 
' 


51 DATA 195,146,127,205,39,125,6,3,205,144,125,205,29,125, 
205,49,125,119,205,29,125,254,87,194,146,127,205,35,125, 


43,201 52 
28 ° 53 DATA 221 533,250,124, 42,253 6124, 237 ,9)¢ 25313245 237 (82,355 
29 DATA 205,126,125,205,47,125,16,248,201,205,39,125,205,126, 62,162,205,31,2,62,85,285,31,2,6,6,221,126,9,205, 31,2 

125,42,255,124,205,43,125,205,57,125,205,39,125,126,205, 54." 

62,125,285 55 DATA 221,43,16,246,37,250,70,127,62,680,205,31,2,151,205, 
| 31,2,205,106,127,24,238,151,189,40,12,62,60,205,31,2,125 
31 DATA 47,125,205,29,125,254,10,40,34,254,91,40,33,254,88, 56. 

202,146,127,205,120,125,56,235, 75 757979 71,205,29,125,254 57 DATA 205,31, 2,205,186, 127,62,120) 205,31 5272375 15592915124; 
32 ° 1215205531) 27,120,205, sk pg dy hoop L4G, 121,71 gle spae ool 2pi2e 
33 DATA 88,202,146,127,205,120,125,56,243,128,119,35,24,196, 58 ' 

205,35,125,43,24,198,205,39,125,6,1,205,144,125,205,201, 59 DATA 205,31 ,2,131,79,26,265, 31, 2,129,79,19,16, 247,121, 

1,42 195,31,2,205,201,1,49,0,192,33,211,124,205,167,40,151,508 
34 ° 60 ' 

35 DATA 255,124,30,128,14,2,205,57,125, 205, 39,125,6,8,126, 61 DATA 4,125,205,43,125,33,0,125,62,36,205,49,125,205,29, 


205,62,125,205,47,125,35,29,202,149,127,16,242,205,43, 


125,13 
36 ' 


66,262 
ies 


125,205,49,125,254,68,202,228,125,254,77,202,153,125,254, 


37 DATA 32,228,205,43,125,24,221,205,39,125,205,126,125,265, 63 DATA 164,126,254,74,202,23,126,254,80,202,234,126,254, 82, 


29,125,254,74,194,146,127,237,115,7,125,49,9,125,217,8, 


253,225 
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49,125,24,195 


202,75,126,254,87,202,243,126,254,83,202,25,26,62,8,285, 
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BBC Microcomput 


OFFICIAL BBC 
COMPUTER 
DEALER 


MODEL A AVAILABLE 
£299 inc. VAT 


























modes of operation. full colour, full-size keyboard. internal expansions such as 
disc interface. speech synthesizer, Econet interface. — In short. it is a personal 
computer capable of expanding into a small business system 














BBC Microcomputer Model B £348 + VAT — £399.00 
BBC Mod B + disk interface £409 + VAT — £469.00 
BBC Mod B + Econet interface £389 + VAT = £447.35 
BBC Mod B + disk and Econet intertaces £450 + VAT — £517.50 
BBC 100K disk drive £230 + VAT = £264.00 
BBC dual BOOK disk drive £699 + VAT — £803.85 
Torch 280 disk pack including 280 2nd processor. 64K RAM and CPN operating 
system + free perfect software £699 - VAT — £803.85 
BBC Teletext receiver (Aug) £196 + VAT — £225.40 
BBC cassette recorder and lead £26 + VAT — £29.90 
Disk interface kit (free fitting) £86 + VAT- £96.60 
Mod A to Mod B upgrade kit £50 + VAT- £57.50 
Fitting charge for A to B upgrade kit £20 + VAT- £23.00 
16K memory upgrade kit £20 - VAT £23.00 
Games paddles £11 - VAT £12.65 
12° Monochrome monitor inc! cable £89 + VAT - £102.35 
16° Colour monitor inc! cable £239 - VAT — £274.85 
User guide £10 - VAT- £10.00 
Econet intertace (free fitting! £60 - VAT. £69.00 
Speech interface (tree fitting) £47 - VAT £54.05 
BBC disk manual - formating disk £30 - VAT- £34.50 
Parallel printer cable £10 - VAT £11.50 
BBC word processor (view) £52 - VAT - £59.80 
BBC Fourth language cassette £15 - VAT- £17.25 
BBC Lisp language cassette £15 + VAT- £17.25 






100% BBC COMPATIBLE MITSUBISHI 
AND TEAC SLIMLINE DISK DRIVES 


Y WWM TARe ess 








These Grives are Su,..1eG ready cased with all the necessary cables 
program and user disk system guide 

There are some usefu! utilities included. e g Epson Screen Dump Program 
Memory Dump. Free. Duplicate. Merge and Relocate Power consumption of 
these drives is very low (0. 2Atyp at - 12V.0 4Vtyp at - 5V per drive) Power 
s taken from the BBC computer 


formating 





















COMPLETE WORD PROCESSOR 
FOR ONLY £1,099 + VAT 


This package consists of BBC Microcomputer. View wordprocessor 400K 
Slimline disc drive, High resoiution 12° Green monitor. Juki 6100 18CPS Daisy 
Whee! printer anc al! the necessary cables and documentation The above 
package can be supplied with components of your own choice. e g B00K disc 




















drive or a different printer Please phone us for a price for your particular 
requirement 
Special package dea! £1099 - VAT — £1,263.85 


PROFESSIONAL MONITORS 








GREEN MONITORS 





12” Green screen monitors with composite and sync nput Suitable for most 
computers 

* 18 MHz band width. high resolution £89 - VAT — £102.35 
%* 15 MHz band width norma! resolution £69 - VAT £79.35 





COLOUR MONITORS 
%* M'CROVITEC RGB input 14 - 





monitor supplied with RGB lead tor BBC 
£209 - VAT 






lead £219 - VAT ~ £251.85 
% SANYO SCM 14M Medium res. 14”. 600 dots. RGB inp supplied with RGB 
lead £199 VAT 
%* SANYO SCM 14H High res. 14”, 800 dots. RGB inpul suaplied with RGBigad 
£399- VAT - 
















ESSEX CM20 2HU 






TELEX: 995801 REF - A18 
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This is the best microcomputer currently 0 on ‘the market. 32K RAM. 32K ROM. 8 











Single drive 100K 40 tracks £169 - vAT - £194.35 
Dual drive 200K 40 tracks £329 - VAT - £378.35 
Single drive 400K 80 tracks £239 - VAT £274.85 
Single drive 400K 40 8F tracks switchable €259 - VAT — £297.85 
Dual drive 800K 80 tracks £449 - VAT - £516.35 
Qua! drive BOOK 40 80 tracks switcnable £469 - VAT — £39.35 












£240.35 
% SANYO SCM 14” Normal res. 14°. 400 dots. RGB input supplied with RGB- 


£228.85 
£458.85 


Akhter Instruments Limited 


DEPT. CT, 28 BURNT MILL, HARLOW, 
TEL: HARLOW (0279) 443521 OR 412639 


[astern Fc 
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EPSO Bu. OU COM ~ TOU LUPO, NOlid at dru e b user 
definable characters. superscript subscript. 11 x 9 matrix bi- directional logic 
seeking, hi-res bit image printing (960 x 8 dots:line). friction and pinfeed, 9 
international character sets. Centronic parallel interface 

FX80 PRICE £349 + VAT 
EPSON AXBO: 80 column, 100 CPS. normal. italic and elite characters. 11 
international character sets. hi-res bit image printing. bi-directional logic 
seeking, 4” to 10” adjustable pin feed. Centronic parallel interface 

FXGO PIG a cccncsiveveceanncuvesesess £239 + VAT = £274.85 
EPSON FX 100 136 column, 160 CPS friction and tractor 


feed, up to 15” adjustable carriage, hi-res bit image printing 


true descenders. PRICE ..........+++. Pree bo VAT = £550.85 
RS232 Interface for all above printers £55 + VAT = £63.25 
RX80 FT (friction tractor).......... £269 = VAT = £309.35 


Tractor teed for FX80 £79 - VAT— £90.85 
Roll holder tor FX80 £12 + VAT £13.80 
Ribbon tor MX80. FX80. RX80 €8 - VAT £9.20 

£12 + VAT— £13.80 


Ribbon for MX100 










SEIKOSHA Po . 
DOT MATRIX | 
PRINTERS W:TH 
HIGH-RES 
GRAPHICS 


GP-100A 80 column. 50 CPS. dot addressable ni-res graphics. 10° wide. fully 
adjustable. tractor feed. 7 x 5 print matrix. Centronic parallel interface 

GP-100A SOCPS PRICE £175 + VAT — £201.29 
GP-250X 80 column. 50 CPS. 10° wide. fully adjustable tractor feed. true 
descenders. 64 user definable characters. double height and or double width 
printing. 8 x 5 print matrix. Centronic parallel and RS232 (serial) interfaces both 
ncluded 

GP-250X PRICE 

NEW GP-700A 7 COLOUR PRINTER 
This latest addition to Seikosha range gives you print in seven colours. 10° wide 
carriage. friction and tractor feed 50 CPS print speed. dot addressabe high-res 
graphics. 4 hammer printing mechanism. 10 CPI or 13.3 CPi. special Quite 
printing mode. Centronic parallel interface 
GP-700A SPECIAL INTRODUCTORY PRICE 





£219 - VAT — £251.85 


£349 - VAT - £401.35 













GUARANTEED LOWEST PRICES 

We guarantee that our prices are the lowes! on the market If you can 
find any ttem advertised and in stock at less than our price we will 
matchihat price 


NEW LOW PRICES ON STAR 
Pa: Lo 








Vina 
The most cost ‘eHective Quality matrix printers to be launched this year DP510 
and OP515 features ‘nclude friction and tractor feed and roll holders as standard 
100 UPS print speed bi-directional logic seeking 9 x 9 matrix gives true 

Gescenders 2 3K buffer as standard hi-res bit image plus block graphics, sub 

afd super script. italic printing. auto underlining. vertical and horizontal 

tabulation. left and right margins set. skip over perforation. back space and selt 

test 

STAR DP510 10° carriage 80 columns 
SPECIAL PRICE 

STAR DP515 15 carriage 136 columns 

SPECIAL PRICE 

RS232 INTERFACE FOR ABOVE 


£50 - VAT - £57.50 


POCKET COMPUTERS AND CALCULATORS 


* CASIO PB-100 Basic language pocket compute’, 544 program steps. Qwerty 




























keyboard, 12 char display £34 75 - VAT — £39.95 
%* CASIO FX-700P Basic language. scientific functions. 1568 program steps 
Qwerty keyboard. 12 char display £43 44 + VAT £49.95 


* CASIO PB-300 Basic janguage computer. scientific functions, 1568 program 
steps. built-in mini printer. Qwerty keyboard. rechargeable batteries and 


charger. 12 char display £78.22 + VA £89.95 
* CASIO FA-3 Cassette adaptor for PB100. PB300. FX700 

£17 35 + VAT £19.95 

%* CASIO FP-12 Printer for 8B100 and FX700 £3909 - VAT- £44.95 


%* SHARP PC-1211 Basic language computer. scientific functions. 1424 program 
steps. 24 char display, Qwerty keyboard 
£60 83 + VAT— £69.95 
%* SHARP PC-1251 Basic language computer. 4K RAM. 24K system ROM, 24 char 
display. Qwerty keyboard. user defined key, numeric pad 


£69 52 + VAT = £79.95 

* SHARP CE-125 Cassette recorger and mini printer for use with PC-1251. incl 
batt charger £86.91 + VAT= £99.95 
%* SPECIAL PRICE PC-1251 - CE-125 £146.95 + VAT = £169.00 








ORDERING INFORMATION 
All orders 





INSTRUMENTS" A ¢ 

BARCLAYCARD and 
Governmen 
orders 


sarriage charge of 3% of 
ACCESS orders 







£401.35 

























































£239 VAT £274.85 


£279 - VAT -£320.85 


invoice total is applicable to 
We accept 
t and Educational establishments. We accept VAT FREE EXPORT 
please phone or write to check shipping cost 

OPENING HOURS: MON-FRI 9am-5.30pm, SAT 10am-2pm. 

We weicome callers, no parking problems. 


Language (PASCAL, Tl-LOGO, ASSEMBLER) 








































































Please send S.A.E. for software prices 


THE all i eon DAISYWHEEL 
PRINTER 










w 18 CPS - Bi-Directiona! Logic Seeking 
w 10. 12. 15 CPI + Proportional Spacing 
% “Drop in” Daisywheei - Triumph Adier Compatible 
% Supports al! Wordstar features 

% Diablo protocols — IBM Selectric ribbon 

te 2K Butter a6 standard - 100 character Daisywhee 


SPECIAL OFFER JUKI 6100 DAISYWHEEL . 


% 80 CPS - 
Bi-Directional 
Logic Seeking 80 Colunn, 

% Friction and Adjustble Tractor Feed 

% Patented Square Needles up to 9x 13 matrix 

t Hi-Res Graphics and Block Grphics 

SHINWA CP80 PRINTER 

SPARE RIBBON FOR CP80 


£219 
£5 - VAT 











COLOUR COMPUTER 


screen. Construction 40 x 25. 
optional cassette and printer. 
Special introduction price £199 + VAT 


£228.85 (free 10 games included) 


Internal cassette recorder option £33 + VAT 
£37.95 


Internal 4 colour printer plotter option 
£109 + VAT = £125.35 

























which accompany a cheque, cash or postal orders are CARRIAGE 
FREE (UK only) Please make cheques and postal orders payable tc 


o “AKHTER 


official orders from 


H 


TEXAS INSTRUMENTS TI 99/4A 


THE NEW SHARP MZ 711 










This microcumputer is based on TMS9900 16-bit microprocessor. It includes 
16K RAM. 16 colour high resolution graphic (192 x 256). The screen display is 
32 characters, 24 lines TI-BASIC. Full-size keyboard. For Software there are 
about 1000 programs to choose from. There are a lot of peripherals available, 
e.g. Disk Drives, Disk Interface, Speech Synthesizer, Extra RAM. Additional 


TI HOME COMPUTER HARDWARE 
Title Description Price 
inc WAT 
T199/4A Complete with UHF modulator and power 
supply £89.95 
PERIPHERALS 
Speech When used with selected modules will 
Synthesizer roduce electronic speech £41.95 
Peripheral This unit takes all card peripherals and on 
Expansion System internal disk drive £79.95 
Disk Drive - 92K formatted drive. mounts internally in 
Internal peripheral expansion system £149.95 
Disk Controller Contiols up to 3 disk drives. complete with 
Card disk manager command module - £109.95 
Disk Drive 92K formatted capacity per side acts as 2 
Double Sided drives DSK1 & DSK2 total capacity 184K 
bytes £219.95 
Disk Drive Complete with own case. power supply & 
External connecting cables £259.95 
RS232 Provides 2 serial RS232 ports. and one 
Expansion Card parallel port for interfacing £79.95 
RAM Adds 32K bytes extra RAM bringing total 
Expansion Card capacity to 48K bytes £79.95 
P-Code Card includes the UCSD-PASCAL P-code inter- £189.95 
preter 
Matrix Printer 80 column matrix printer pinter GP-100A 
+ cable £219.95 
Matrix Printer 80 column matrix printer with RS232 and 
GP250Xx Centronic parallel interface £273.95 
Epson RX80 80 column, 100 CPS matrix printer £297.85 
Printer 





























- VAT = £251.85 
£3.78 


64K user memory — 4K video memory 
Internal 


COMPUTING TODAY FEBRUARY 1984 


Series: Teach yourself FORTH 


LEARNING FORTH PART 4 





Paul Gardner and Caroline Bradley 





LEARNING FORTH 





PART 4 


ast month | dealt with the 
structures that FORTH uses to 
ontrol the flow of execution 
within a program and also began to 
explain how various dictionary 
entries are stored and how you can 
create your own ‘defining words’. 
We'll now see how we can use 
<BUILDS...DOES> to produce a 
word which can define an array. For 
the first example we want a word 


ARRAY which, when used as follows: 


n ARRAY name 


will set up a dictionary entry called 
‘name’ which will be an entry of n+] 
elements (O to n), so that when 
‘name’ is used, for example: 


m name 


it will return the memory address of 
the mth element of the array. (I'm 
using arrays with subscripts O to n as 
this will be familiar to most BASIC 
useISs. ) 

If this all sounds a little confusing 
then the idea compares to the use of 
BASIC’s DIM function, comprising 
DIM name (n) which sets up the 
array, and name (n) which lets you 
access any element of the array. So 
we need a word whose actions are: 
(define-time action) Allocate 
space in the dictionary for the array. 
(run-time action) Given a num- 
ber, m, on the stack, return the 
physical address of the mth ele- 
ment of the array. 

Listing 1 gives a definition for the 
word ARRAY which will do what I 
have described. It could be used, for 
example, as: 


TAKE IN CRA 


This would set up an array called 
COUNTERS with 2] elements (0-20). 
Using: 

18 COUNTERS 


would give the address of element 
10, so that: 


1@ COUNTERS @ 


would return the number held in this 
element of the array, and: 


14 18 COUNTERS ! 


would store the number 14 in element 
10 of the array. 

The way the define-time action of 
the word works is as follows. <BUILDS 
sets up the dictionary header for the 
new word, the expression 


1 + 2 w¥ ALLOT adds oneto 


the number on top of the stack, mul- 
tiplies the result by two and sets 
aside (ALLOTs) that many ‘bytes’ of 
memory in the dictionary for the 
parameter field of the new word. 
Remember, given a number n, we 
want n+1 elements which take up 
2% (n+1) bytes of memory as each 
number takes two bytes. 

ALLOT works in much the same 
way that C, and can be used to 
enclose one and two bytes of memory 
in the dictionary but ALLOT can set 
aside as many as necessary and also 
does not store any numbers in these 
bytes, it just makes the space 
available. 

The way the run-time action 
works is quite simple. Assuming you 
have used your new array to store 
some numbers, then whenever you 
want to access the array (ie get a 
number from it or put a number in it) 
you use an expression like 


7 COUNTERS 


The word COUNTERS leaves the 
address of its parameter field (the 
actual array space) on the stack and 
calls the run-time action of its 
defining word ARRAY to use this 
number. The expression in ARRAY: 


SWAP 2 * + 


calculates the address of that par- 
ticular element of the array. 

As this is the first example I'll run 
through this run-time action bit by 
bit. When the run-time action of 
ARRAY is called there are two num- 
bers on the stack (these are the 
required element (10) and the 
address of the zeroth element of the 
array (COUNTERS)). 

The expression SWAP 2 * 
leaves on the stack (address of the 
zeroth element) and (offset in bytes to 
required element). Then + leaves on 
the stack the actual address of the 


required element, which can be 
used by @ and! to fetch a value 
stored or to store a new one. 

The word ARRAY can be used to 
define any number of unique arrays 
with any number of elements 
(memory permitting) in the same way 
that VARIABLE can create lots of dif- 


ferent variables. 


CHECKING IT OUT 


While the definition of ARRAY may 
seem particularly short for such a 
powerful command, it does have 
serious drawbacks. When a new 
array is defined it does not initialise 
the contents: more seriously, when 
the array is used there is no error- 
checking to see if what you are trying 
to do is ‘legal’. 

For example in Spectrum BASIC, 
if you set up an array using: 


DIM p(19) 
and then try: 


LET a = p(12) 


the program will stop with a “Bad 
subscript” error message. 

It is very important to make sure 
that you stay within the limits of your 
array, because if you change the 
contents of a memory address just 
outside it, you will corrupt the dic- 
tionary entry of an adjacent word. 
This usually means that sooner or 
later your program will ‘crash’ 
seriously. Listings 2 and 3 give 
definitions for a few words that over- 
come these difficulties. 

The new defining word 
ARRAYCHECK in Listing 3 is a word 
which will set up arrays in the dic- 
tionary but will initialise all the ele- 
ments of the array to zero at 
define-time, and at run-time will 
check that you are attempting to 
access a valid element. 

To explain, at define time the 
define-time action takes a number of: 
the stack (call it n) and adds one to 
it; this is the number of elements. This 
number is duplicated and stored in 
the first two bytes of the parameter 
field. The same number is then used 
to control the upper limit of aDO... 
LOOP which repeatedly encloses 
the number O in the dictionary by 
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using , (comma). For example, if 
we set up an array using: 


3 ARRAYCHECK TEST 


then the define-time action of 
ARRAYCHECK would set up a dic- 
tionary entry like the one shown in 
Fig. 1. The first two bytes in the 
parameter field contain the number 
of elements in the whole array and 
the rest of the parameter field is 
initialised to contain zeros. 

Error-checking, of course, makes 
the run-time action of ARRAYCHECK 
a little more complicated, so 1 have 
defined two words CHECKBOUND 
and ERRORMESSAGE to make the 
definition of ARRAYCHECK clearer. 
Whenever our new array TEST is 
used, it calls the run-time action of 
ARRAYCHECK. At this time the top 
two numbers on the stack will be the 
element of TEST we require and the 
address of TEST’s parameter field. 

CHECKBOUND uses these two 
numbers to fetch the contents of the 
first two bytes of this parameter field. 
This contains the number of elements 
in the array or, to put it another way, 
the upper limit plus one. CHECK- 
BOUND returns a value to the top of 
the stack which is one, ie true, if the 
required element is (greater than or 
equal to zero) AND (less than or 
equal to the upper limit). 

If CHECKBOUND retums ‘true’ 
then ARRAYCHECK carries on and 
works out the address of the required 
element of the array as before. (The 
2 + is to take into account the two 
bytes taken up to hold the count for 
the number of elements.) 

If CHECKBOUND returns ‘false’ 
then ERRORMESSAGE is called, 
which uses the top two numbers on 
the stack (ie required element, 
parameter field address) to produce a 
suitably useful message. Execution 
of any program running is then 
stopped. Most programs in FORTH 
would probably use ABORT to abort 
the program and clear the stack, but 
in Abersoft's version ABORT also 
clears the screen so that your error 
message would promptly disappear. 
So I have used the expression SP! 
OUIT to clear the data stack and 
quit execution of the current 
program. 

To see how this works in practice, 
try: 


3 ARRAYCHECK TEST 


and then attempt to use an element 
that is out of bounds, for example: 


CRA I5 


The computer will respond: 


ERROR! Value 6 out of bounds 
Range allowed is 9-3 
ok 


Clever, eh? 


2-D ARRAYS 


Listing 4 gives the definition of a 
word that will create two dimensional 
arrays (ie rows and columns). This 
definition is a non-checking, non- 
initialising one. At first sight this 
definition of 2-D seems more com- 
plex than that of ARRAY, but it is 
essentially the same. The word 2-D is 
used in the form: 
column-limit 2-D 


row-limit name 


For example: 


8 8 2-D CHESSBOARD 
Any element of the array would be 
accessed using: 


row column name 


For example: 


4 2 CHESSBOARD 

The define-time action of 2-D first of 
all has to save in the parameter field 
of the new word the number of 
columns in the array. Then the total 
number of bytes which the array will 
occupy is calculated: 


number of bytes = 2*( (limit for 
rows + 1)*(limit for columns + 1)) 


and these are set aside in the dic- 
tionary using ALLOT as defined 
earlier. 

The run-time action of 2-D 
expects three numbers on the stack 
(row, column, parameter field 
address of new array), and it calcu- 
lates the address of the required ele- 
ment. All the elements of the array 
are stored in order in the dictionary; 
for example, if we had defined an 
array using: 

2 3 2-D EXAMPLE 
the elements would be stored in the 
dictionary in the following order: 


(0,0),(0,1),(6,2),(8,3),(1,9), 
(1,1), 1 (2,3) 


so that to calculate where the 
required element is in the list you 
work out: 


((required row)*(number of 
columns) + required column 


HEADER 


ARRAYCHECK 


RUN-TIME CODE 


Fig. 1 A typical ARRAYCHECK 
dictionary entry. 


For example, in the above 2-D array 
element (1,1) is: 
(1*4) + 1 = 5th element 


Remember our list begins with the 
zeroth element, so the offset in bytes 
from the parameter field address is in 
this case (2% 5) plus the two 

bytes used to store the number of 
columns. 

I have included in all my defini- 
tions comments at the right hand 
side to indicate the contents of the 
stack at various points. 

Listing 5 gives a defining word 
2-DCHECK which operates similarly 
to 2-D, but initialises the elements of 
the array to zero when the array is 
defined and at run time checks that 
both subscripts (row and column) are 
within the limits of the array. 

In this case the define-time actior 
of 2-DCHECK needs to store in the 
parameter field of the new word both 
the number of rows and the number 
of columns in the array. The run-time 
action of 2-DCHECK is essentia!ly 
similar to that of ARRAYCHECK, but 
in this case we need to check for 
both row and column limits. Figure 2 
gives a diagrammatic view of the 
dictionary entry for a word defined 
as: 


3 4 2-DCHECK BOARD2 
This array has (3 + 1) ®& (4+ 1) = 


20 elements, and the number of 
columns and the number of rows are 
stored as the first two numbers (four 
bytes) in the parameter field of 
BOARD?2. 

So, the run-time action of 
2-DCHECK uses the numbers pro- 
vided for the required row and 
column, along with the parameter 
field address of the array, as 
parameters to pass to 
CHECKBOUND to see if the sub- 
scripts are in range. If either subscript 
is wrong then a suitable error 
message is printed as before, only 
this time I have arranged that 
2-DCHECK lets you know whether 


the mistake is in the row or column. 


HERE BE MONSTERS 


Listings 6 and 7 show how flexible 
the use of defining words is in con- 
structing your own dictionary entries. 
This example sets up a somewhat 
larger and peculiar array for holding 


PARAMETER FIELD 
a 


3rd ELEMENT 


1st ELEMENT 
Oth ELEMENT 


NUMBER OF ELEMENTS IN ARRAY 
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( LISTING 4 - DEFINING WORD FOR 2-D NON-CHECKING ARRAYS 

1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1.1A) 1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 

2 2 

3: CHECKBOUND ( N,ADDR-N,ADDR,FLAG) 3 : 2-D <BUILDS ( NUM. OF ROWS,NUM. OF COLS -) 

4 OVER OVER @ ( N,ADDR,N,UL+1) 4 1+ DUP , SWAP 1+ * 2 * ALLOT 

5 OVER > ( N,ADDR,N, [UL+1>N] ) 5 DOES> ( ROW,COL,ADDR-ADDR) 

6 SWAP -1 > ( N,ADDR, [UL+1>N] , [UL>=0]) 6 ROT OVER @ ( COL,ADDR,ROW,NO.OF COLS) 

7 AND ( N,ADDR,FLAG[FLAG=1 IF VALID ELEMENT] ) 7 * ROT + ( ADDR, ELEMENT) 

8 ; 8 2° + 2+ ( ADDR) 

9 9 ; 
10 : ERRORMESSAGE ( N,ADDR-) 10 
Tal CR SWAP ."“ ERROR! Value " . ." out of bounds." 11 

12 CR ." Range allowed is 0-" @ 1 = .CR 12 
13 ; 13 
14 14 
15 15 

Listing 2 Listing 4 

0 ( LISTING 3 - DEFINING WORD FOR SELF CHECKING 1-D ARRAYS) 0 ( LISTING 5 - DEFINING WORD FOR 2-D SELF CHECKING ARRAYS) 
1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 

2 2 

3 : ARRAYCHECK <BUILDS ( N-) 3 : 2-DCHECK <BUILDS ( NUM.OF ROWS,NUM.OF COLUMNS) 

4 1+ DUP , 0 DO O , LOOP 4 1+ DUP , SWAP 1+ DUP , ( COLS+1,ROWS+1 

5 DOES> ( N,ADDR-ADDR ) 5 * 0 DO O , LOOP 

6 CHECKBOUND IF SWAP 2 * + 2+ ( ADDR) 6 DOES> ( ROW,COL,ADDR-ADDR ) 

7 ELSE ERRORMESSAGE SP! QUIT THEN ; 7 CHECKBOUND ( CHECKS IF COL IN RANGE ) 
8 8 IF ROT SWAP 2+ ( COL,ROW,ADDR+2 

9 9 CHECKBOUND ( CHECKS IF ROW IN RANGE) 
10 10 IF 2 - DUP @ ( COL,ROW,ADDR,NO.OF COLS) 
11 11 ROT * ROT + 2 * + 4 + ( ADDR OF REQUIRED ELEMENT ) 
12 12 ELSE ERRORMESSAGE ." for row of array." SP! QUIT 
13 13 THEN 
14 14 ELSE ERRORMESSAGE ." for column of array. SP! QUIT 
15 15 THEN ; 
Listing 3 Listing 5 


the names and attributes of 19 dit- 
ferent monsters that wish to do battle 
with you in my FORTH version of that 
famous game THE-VALLEY. 

While the details of the defining 
word MARRAY will not be clear until 
the end of this series of articles (as it 
relies heavily on moving strings of 
text about before it encloses them in 
the dictionary) the general idea is 
quite instructive. The defining word 
MARRAY has a define-time action 
which requires no values upon the 
stack, but instead prompts the user to 
type in the details for the four dif- 
ferent fields of this array. When used 
as: 


MARRAY MONSTERS 


you can type in repeatedly the 
names, physical strenths and psi 
strengths of your monsters along with 
a code letter which determines the 
scenes that a particular nasty crea- 
ture can be present in. All this infor- 
mation is thus stored in the array 
MONSTERS which is set up to con- 
tain (diagrammatically): 


name@ strengthd 
(15 letters max) (8-255) 
namel strengthl 
name2 strength2 
namel8s strengthl8 


COMPUTING TODAY FEBRUARY 1984 


HEADER 


2-DCHECK 


RUN-TIME CODE 


THE SPACE BETWEEN TWO VERTICAL BARS,! | 
REPRESENTS TWO BYTES OF THE DICTIONARY. 


Fig. 2 Atypical 2-DCHECK 
dictionary entry. 


The run-time action of the word 
MARRAY takes two numbers off the 
stack (required element (0-18), 
required field (O-3)), for example: 

4 MNAME MONSTERS 


where we have defined MNAME, 
MSTRENGTH etc as constants to 


make the program clearer. The run- 


code-lettergd 
(1 letter) 


psi-strengthd@ 
(9-255) 
psi-strengthl code-letterl 


psi-strength2 code-letter2 


psi-strengthl8 code-letterl18 





PARAMETER FIELD 


ELEMENT (3,4) 
ELEMENT (3,3) 
ELEMENT (1,4) 
ELEMENT (1,3) 
ELEMENT (0,4) 
ELEMENT (0,3) 


ELEMENT (0,1) 
ELEMENT (0,1) 


time action returns either the 
required address for MSTRENGTH, 
MPSI and MCODE or an address 
and a number for MNAME (address 
of first letter of monster's name and a 
count of the number of letters in its 
name). This allows the name to be 
printed using the FORTH word TYPE. 

Next month I shall be dealing 
with input and output, which should 
clarify the details of this defining 
word and allow us to produce some- 
thing like it for names and addresses, 
dates of birth and so on. 


A RANDOM WALK 


It is quite difficult in such a series as 
this to provide numerous small 
examples to show the use of a par- 
ticular feature of a language, so the 
next few listings demonstrate, using 
fairly complex but nicely compatible 
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programs, many of the aspects of 
FORTH that I have covered so far. 

Listing 8 is a few words to provide 
a random number generator, which 
is missing from FORTH. The 
generator uses the same method as 
the built-in RND function on the 
Spectrum, and the mathematical 
method is described fully on pages 
56 and 57 of the manual. To use the 
random function type: 


n RND 


where n is a positive integer, and a 
random number between zero and 
n—1 will be returned to the stack. 
Like the BASIC version you can 
repeat a given series of random 
numbers by using: 


n RAND 


This initialises the seed for the 
generator. 

One particular feature of RAND is 
that if you type: 


@ RAND 32 


the program uses the Spectrum clock 
to initialise the seed. 














HHHHHHHHHHHHHHHHHHHHHHHHHHAHHHHH 


HERRERA KKKKKKKKKKEKKKEKEKKEKEKEKKK KD 
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Fig. 3 Typical maze and route out. 


Listings 9-12 use a 2-dimensional 
array to hold an array of characters 
which represent a maze. The method 
of construction of the maze and the 
functional definitions of all the 
associated words are given in the 
glossary, Listings 13 and 14. Execut- 
ing TEST will produce the maze 
shown in Fig. 3. Change 1 RAND 


toO RAND and TEST will produce a 
different maze each time. 

Listings 16-18 use the maze pro- 
duced by TEST to show how, from 
any position within the maze, an exit 
can be found (providing one exists). 
The method is recursive, ie the word 
SEEKEXIT actually contains a call of 
itself and this necessitates, in Aber- 
soft's FORTH, the use of the word 
PGSMUDGE, as explained in the 
glossary. Again the method used to 
find the exit and the functional 
definitions of the associated words 
are contained in the glossary, List- 
ings 19 and 20. 

If you execute TEST (with 1 RAND 
in the definition as shown), followed 
by FINDEXIT, then the output should 
be as shown in Fig. 3. 

I hope this month's article has 
whetted your appetite for a little 
more FORTH, as next month I'll be 
explaining how you can communi- 
cate with your program (ie input/ 
output), how FORTH handles the 
RAM disc, and how you can com- 
bine this with what we know of defin- 
ing words to manipulate and store 
text within the dictionary. 


0 ( LISTING 6 - DEFINING WORDS FOR 'MONSTER ARRAY‘ ) 0 ( LISTING 9 - WORDS FOR MAZE DRAWING) 

1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 

2 0 CONSTANT MNAME 1 CONSTANT MSTRENGTH 2 : VAR VARIABLE ; : CON CONSTANT ; ( MAKES TYPING EASIER ) 
3 2 CONSTANT MPSI 3 CONSTANT MCODE 3 31 VAR SCREEN-WIDTH 20 VAR SCREEN-HEIGHT 2 VAR WALLSIZE 

4 : MARRAY <BUILDS 4 0 VAR MAXROW 0 VAR MAXCOL 0 VAR LINES 

5 19 0 DO 5 : SETPARAMS ( -) 

6 CLS ." TYPE IN NAME OF MONSTER" CR 6 WALLSIZE @ SCREEN-WIDTH @ OVER / * MAXCOL ! 

7 QUERY 34 ( ASCII " ) TEXT PAD DUP 15 + SWAP 7 WALLSIZE @ SCREEN-HEIGHT @ OVER / * MAXROW ! 

8 DO I C@ C, LOOP 8 MAXROW @ MAXCOL @ * WALLSIZE @ DUP * / 100 * 127 / LINES ! ; 
9 CR ." TYPE IN MONSTER'S STRENGTH" CR QUERY INTERPRET C, 9 72 ( ASCII H) CONSTANT HEDGE 46 ( ASCII .) CONSTANT WALKWAY 
10 CR ." TYPE IN MONSTER'S PSI STRENGTH" CR QUERY INTERPRET C, 10 0 VAR ROW-START 0 VAR COL-START 0 VAR ROW-DIR 
1 CR ." TYPE IN CODE FOR SCENE SELECTION" CR KEY DUP EMIT C, 11 0 VAR COL~DIR 0 VAR END-ROW 0 VAR END-COL 

2 LOOP 12 SETPARAMS ( SETS VALUES FOR MAXROW & MAXCOL) 
13. DOES> ( ELEMENT,FIELD,BASE ADDRESS) 13 MAXROW @ MAXCOL @ 2-DCHECK MAZE ( SETS UP ARRAY SPACE) 


14 OVER DUP MNAME = OVER MSTRENGTH = OR 
ie. OVER MPSI = OR SWAP MCODE = OR NOT ==> 


14 : CPLOT ( ASCII CODE,ROW,COL) 
15 OVER OVER AT ROT DUP EMIT ROT ROT MAZE ! ; 


ABERSOFT fig-FORTH 1. 1A) 


: PICKSTART WALLSIZE @ MAXCOL @ OVER / 1+ RND * COL~START ! 
WALLSIZE @ MAXROW @ OVER / 1+ RND * ROW-START ! ; 


Listing 6 Listing 9 

0 ( LISTING 7 - MONSTER ARRAY CONTINUED) 0 ( LISTING 10 - MAZE DRAWING CONTINUED) 
1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 1 ( 48K SPECTRUM 

2 : CPOINT ( ROW,COL-ASCII CODE) MAZE @ ; 
3 IF CR ." ERROR! INVALID FIELD SUPPLIED" CR SP! QUIT THEN 

4 ( CALCULATE OFFSET FOR CHOSEN FIELD ) 

5 ( ELEMENT,FIELD,BASE ADDR. ) 


6 OVER ( E,F,BA,F) 

CASE MSTRENGTH OF 15 + ENDOF 

8 MPSI OF 16 + ENDOF 

i) MCODE OF 17 + ENDOF 

10 ENDCASE ( E,F,OFFSET BASE ADDR.) 
11 ROT ( F,OBA,E) DUP 18 > OVER O< OR 
12 IF CR 
13 18 * + ( F,ELEMENT ADDR) 

14 SWAP MNAME = IF COUNT ELSE C@ THEN 


J 


0 ( LISTING 8 - RANDOM NUMBER GENERATOR) 
( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 


." ERROR! OUT OF BOUNDS IN MARRAY" SP! QUIT THEN 12 


1 OF 1 COL-DIR ! 
2 GF <1 COLDER 7 
3 OF O COL=-DIR ! 


10 ENDCASE ; 


0 ROW-DIR ! 
0 ROW-DIR ! 
1 ROW-DIR ! ENDOF 
9 4 OF 0O COL-DIR ! -1 ROW-DIR ! 


2 
3 
4 
5 : PICKDIRECTION 4 RND 1+ CASE 
6 
7 
8 


ENDOF 
ENDOF 


ENDOF 


11: FINDEND WALLSIZE @ COL-DIR @ * COL-START @ + END-COL ! 


WALLSIZE @ ROW-DIR @ * ROW-START @ + END-ROW ! ; 


13: CHECKEND ( -FLAG) END-COL @ 0< 
14 MAXCOL @ END-COL @ < OR END-ROW @ 0< OR MAXROW @ END-ROW @ < 
tS OR IF 1 ELSE END-ROW @ END-COL @ CPOINT HEDGE = THEN ; 


Listing 10 


0 ( LISTING 11 - MAZE DRAWING CONTINUED) 


1 ( 48K SPECTRUM 


ABERSOFT fig-FORTH 1. 1A) 


: PLOTLINE HEDGE ROW-START @ COL-START @ CPLOT WALLSIZE @ 0 DO 


ROW-START @ ROW-DIR @ + ROW-START ! 
COL-START @ COL=DIR @ + COL-START ! 


] 

2 

3 0 VARIABLE SEED 

4 

S : SEEDON ( -NEXT VALUE OF SEED) 

6 SEED @ 75 U* 75 0 D+ OVER OVER U< - - 1 = DUP SEED ! ; a 


8 : RAND ( VALUE FOR SEED-) 
ao 


11. : RND ( N=PSEUDO RANDOM NUMBER BETWEEN 0 AND N-1 ) 


12 SEEDON U* SWAP DROP ; 


14 
15 2 LOAD 3 LOAD 4 LOAD 5 LOAD 8 LOAD 9 LOAD 
Listing 8 


DUP O0= IF 23672 C@ SWAP DROP THEN SEED ! ; 


2 
3 
4 
a HEDGE ROW-START @ COL-START @ CPLOT 
6 
7 
8 


: TRYLINES ( FLAG-FLAG) 


BEGIN DUP 0= IF PICKSTART THEN DROP 0 5 0 
DO PICKDIRECTION FINDEND CHECKEND 0= 
IF PLOTLINE DROP 1 LEAVE THEN 


INKEY 32 = IF DROP 2 THEN DUP 


9 

10 

11 

12 LOOP 
13 

14 UNTIL ; 
15 


Listing 11 


da 


40 


COMPUTING TODAY FEBRUARY 1984 


( LISTING 12 - MAZE DRAWING CONTINUED) 
( 48K SPECTRUM ABERSOFT fig-FORTH. 1. 1A) 


0 
1 
2 
3 : DRAWMAZE 

4 O LINES @ 0 DO TRYLINES DUP 2 = IF LEAVE THEN LOOP DROP ; 

5 

6 DRAWBORDER 

7 MAXROW @ 1+ 0 DO HEDGE I 0 CPLOT HEDGE I MAXCOL @ CPLOT LOOP 
8 MAXCOL @ 1 DO HEDGE 0 I CPLOT HEDGE MAXROW @ I CPLOT LOOP 
9 MAXCOL @ 1 DO MAXROW @ 1 DO WALKWAY I J CPLOT LOOP LOOP ; 


11 : DISPLAYMAZE 
12 CLS MAXROW @ 1+ 0 DO MAXCOL @ 1+ 0 DO 
13 J I MAZE @ EMIT LOOP CR LOOP ; 


14 
15 : TEST CLS 1 RAND DRAWBORDER DRAWMAZE 20 O AT ; 
Listing 12 


0 ( LISTING 13 - MAZE DRAWING EXPLANATION) 

1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 

2 To draw a random pattern maze within a space limited by screen 
3 height and screen width and where the gap between each parallel 
4 wall shall be equal to the value stored in WALSIZE less one. 

5 First scale the boundaries of the maze so that there is always 
6 the same space between adjacent parallel walls. The maze is 

7 going to be drawn by plotting a series of small walls of length 
8 WALSIZE +1. Calculate roughly how many of these small walls are 
9 needed to fill the maze and store the number in LINES. 

10 The maze is made up of HEDGES letter H and WALKWAYS character 
11 To draw the maze, draw a border and repeatedly for the number 
12 of LINES 1) Pick a random starting point 

13 2) pick a random direction 

14 3) caculate the end point of the short wall 

15 4) if it is not a hedge or outside the array then plot the wall. 


Listing 13 


O ( LISTING 14 - MAZE DRAWING: GLOSSARY OF WORDS) 
1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 
2 


NAME STACK EFFECTS DESCRIPTION 
3 CPLOT (ascii code,row,col-) plots the given charcter both in the 
+ the array MAZE and on the screen. 
5 CPOINT (row,col-ascii code) returns the character stored in the 
6 array MAZE at point row,col. 
7 PICKSTART (-) selects a random starting point for new wall. Puts 
8 position in ROW-START & COL-START. 
9 PICKDIRECTION (-) selects a random direction for wall. Puts 
10 values in ROW-DIR & COL-DIR 
11 FINDEND (-) calculates end-point of possible new wall. Returns 
12 position in END-ROW & END-COL. 
13 CHECKEND (-flag) Returns a vaue 1 on the stack if the end point 
14 is out of the array or is a HEDGE. 
15 
Listing 14 


0 ( LISTING 14 CONT. = MAZE DRAWING: GLOSSARY OF WORDS CONT. ) 

1 PLOTLNE (-) draws a wall WALLSIZE +1 long from 

2 ROW-START,COL“START to ROW-END,COL-END. 

3 TRYLINES (flag-flag) if the flag on the stack is zero then 

4 a new starting point is calculated for the next wall. Otherwise 
5 the next wall will start from the end of the last wall plotted. 
6 Five attempts are then made to draw a new wall. If it is not 

7 possible then a new starting point is chosen. 

8 This routine can be interrupted by pressing the SPACE key. 

9 This will end the drawing of the maze. 

10 A flag is left on the stack indicating 1,successfull drawing 
11 of wall. 2,abandon drawing of maze. 

12 DRAWMAZE (-) controls the drawing of the number of walls. 
13 DRAWBORDER (-) draws a border for the maze. 

14 DISPLAYMAZE (-) draws array containing maze on the screen. 
15. TEST (-) will always produce the same maze.(Change 1 to alter.) 


Listing 14 (continued) 


( LISTING 16 - LEAVE MAZE ROUTINES) 
( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 


0 

1 

2 

3 : UNFILL 

4 MAXROW @ 1 DO MAXCOL @ 1 DO J I CPOINT HEDGE = 
5 IF ( DO NOTHING) ELSE WALKWAY J I MAZE ! THEN 
6 LOOP LOOP ; 

7 : MAKEEXIT WALKWAY MAXROW @ 2 - MAXCOL @ MAZE ! 
8 WALKWAY MAXROW @ 1 - MAXCOL @ MAZE ! ; 

0 VAR SOUTHLIMIT 

0 CON WESTLIMIT 


10 0 VAR EASTLIMIT 
11 0 CON NORTHLIMIT 
12 0 VAR EXITFOUND 
13 111 ( ASCII 0) CONSTANT FOOTSTEP 
14 42 ( ASCII *) CONSTANT PATHMARK 
15 : PGSMUDGE SMUDGE ; IMMEDIATE 


Listing 16 


COMPUTING TODAY FEBRUARY 1984 


LEARNING FORTH PART 4 


Cannan eee ee ee eee crear eee ET a TIP IE I EI TTT I PIII Eg SS INARA RN AR SRLS A SI NY RA SPAN 


0 ( LISING 17 = LEAVE MAZE ROUTINES CONT. ) 

1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 

2 SETLIMITS MAXCOL @ EASTLIMIT ! MAXROW @ SOUTHLIMIT ! ; 
3 SETLIMITS 

4 SEEKEXIT ( LAT, LON-) PGSMUDGE R> ROT ROT 

5 >R >R I NORTHLIMIT = I SOUTHLIMIT @ = OR 

6 I' WESTLIMIT = OR I' EASTLIMIT @ = OR R> R> ROT 

7 IF 1 EXITFOUND ! 

8 ELSE 

9 OVER OVER FOOTSTEP ROT ROT CPLOT 

10 ( TRY EAST) 

11 OVER OVER 1+ CPOINT WALKWAY = 

12 IF OVER OVER 1+ SEEKEXIT THEN 

13 EXITFOUND @ NOT 

14 IF ( TRY SOUTH) 

15 OVER 1+ OVER CPOINT WALKWAY = <--> ( COMPILE NEXT SCREEN) 
Listing 17 

0 ( LISING 17 - LEAVE MAZE ROUTINES CONT. ) 

1 ( 48K SPECTRUM ABERSOFT fig-FORTH 1.1A) 

2 IF OVER 1+ OVER SEEKEXIT THEN 

c THEN EXITFOUND @ NOT 

4 IF ( TRY WEST) 

5 OVER OVER 1 = CPOINT WALKWAY = 

6 IF OVER OVER 1 - SEEKEXIT THEN 

7 THEN EXITFOUND @ NOT 

8 IF ( TRY NORTH) 

9 OVER 1 - OVER CPOINT WALKWAY = 
10 IF OVER 1 - OVER SEEKEXIT THEN 
11 THEN 
14 THEN EXITFOUND @ IF PATHMARK ROT ROT CPLOT 
13 ELSE DROP DROP THEN >R PGSMUDGE ; 
14 LEAVEMAZE ( -) UNFILL MAKEEXIT 0 EXITFOUND ! DISPLAYMAZE 
pas 1 1 SEEKEXIT 20 O AT EXITFOUND @ O0= IF ." NO WAY OUT! “THEN ; 


Listing 17 (continued) 


13 
14 
i=: 


( LISTING 18 - EXPLANATION OF METHOD TO LEAVE MAZE) 

( 48K SPECTRUM ABERSOFT fig-FORTH 1.1A) 
Assume the maze is a rectangular enclosure divided into squares 
each square being either covered by a hedge or not. The 
perimeter squares are all hedge covered except for one or more 
exits. You are released somewhere inside the maze and you have 
to find your way to an exit. You may move from square to square 
in any direction except diagonally, but you cannot cross a 
hedge. The maze is represented in the two dimensional array 
MAZE. Letter 'H' represents a hedge and character '.' a pathway. 
( To find a path from square to an exit,a possible solution:-) 
IF square S is on the perimeter THEN exit from maze 
ELSE try heading East 

IF no exitfound yet THEN try heading South 

IF no exitfound yet THEN try heading West 


IF no exitfound yet THEN try heading North ( end) 


Listing 18 


( LISTING 19 - EXPLANATION OF METHOD TO LEAVE MAZE CONT. ) 
( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 
We can further refine 'try heading East' ( the others will be 
similar) 
( Try heading east) | 
IF S's eastern neighbouring square is a pathway THEN 

find a path from S's eastern neighbouring square to an exit. 
But ‘find a path from...etc.' is the same as the original 
problem. So we can use a recursive word ( i.e. one that contains 
a call of itself) that expects on the stack the coordinates of 
its starting square. 
The proceedure marks each square it visits with a ‘footstep’ 
so that it doesn't go round in circles. The proceedure when 
it has found an exit marks each square which lies on the path 
with an asterisk (*). The final picture of the maze will show 
the path and any blind alleys which were followed ( listing 21). 


Listing 19 


14 


( LISTING 20 - GLOSSARY OF WORDS FOR LEAVE MAZE ROUTINES) 
( 48K SPECTRUM ABERSOFT fig-FORTH 1. 1A) 


UNFILL (-) Empties the maze of pathmarks and footsteps. Gives 
you a ‘clean’ maze withouthaving to re-draw it. 
MAKEEXIT (-) forms an exit in the bottom right hand corner. 
PGSMUDGE (-) Something I've not explained yet but this word 
has to be used to form a RECURSIVE definition. 
SETLIMITS (-) Initialises the variables that SEEKEXIT uses to 


determine if the exit of the maze has been found. 
SEEKEXIT ( row,col-) uses the row & column provided on the 
stack as the starting point from which to try and find an exit. 
The use of the words R> & >R will be explained in a further 
article. BE CAREFUL to type an equal number of R>'s and >R's 
as shown in the listing! 
LEAVEMAZFE (-) wil] give an output as listing 21 if it uses 


15 the maze produced by TEST. 
Listing 20 


41 


THE NEW 


PLUS... 


MPFI 


The MPF1 PLUS 
incorporates the Z80 — the most 
widely used 8-bit microprocessor 
in the world, to form a Single 
Board Computer (SBC). 
Packed in a plastic bookcase 
together with three 
comprehensive manuals and 
power supply (to BS36517 
standard), the MPF1 PLUSisa 
microprocessor learning tool for 
every application. 


FLIGHT 


Electronics Ltd. 


Quayside Rd, Southampton, Hants SO2 4AD. Telex 477793. Tel. (0703) 34003/27721. 





Teaching you in a step-by- 
step method the MPF1 PLUS 
helps the user fully understand 
the Software and Hardware ofa 
microprocessor easily and 
conveniently — as opposed to 
micro-computers that aim to 
teach high-level languages 
instead of microprocessor 
systems fundamentals. 

Not only is the MPF1 PLUS 
a teaching tool but with the 
available accessories it can 
also be used as a low-cost : 
development tool or simply for 
OEMs. 


Micro-Professor is a trade mark of Multitech industrial Corporation. Z80 is a trade mark of Zilog inc 


THE MPF1 PLUS 


Just look at the specification:- 


Technical Specitication _ 


CPU: Z80A — 158 instructions 
Software: 

@ 280/8080/8085 machine code 

@ 280 Assembler, line and 2 pass. 

@ 8K BASIC interpreter (Extra) 

@ 8K FORTH (Extra) 

ROM: 8K Monitor (full listing and 
comments 

RAM: 4K CMOS (2 x 6116) 
Input/Ouput: 48 system //O lines 
Speaker: 2.25" coned linear 

Display: 20 character 14 segment green 
phosphorescent 

Expansion: 

@ Socket for 8K ROM 

@ Cassette interface 

@ Connectors 40 way, complete CPU bus 
Keyboard: 49 key. Full “QWERTY” real 
movement good tactile feedback 
Batteries: 4 x U11 for memory back-up 
(batteries not included) 

Serial Interface: 165 baud for read/write 
via audio cassette 


Manuals 


7. User's Manual. 8 chapters. 
7. Over view and Installation. 
2. Specification (hardware and 
software). 3. Description of 
Operation. 4. Operating the MPF-1 
Plus. 5. 44 Useful Sub-Routines. 
6. The Text Editor. 
7. Assembler and Disassembler. 
8. System Hardware Configuration. 
2. Experiment Manual. 16 experiments. 
3. Monitor Program Source Listing with 
full commenting. 
4. Also available the MPF-7 Plus Student 
Work Book (self-learning text). 


Accessories _ 


@ PRT-MPF-1P: 20 character printer. 
Ready to plug in. Memory dump. 

@ EPB-MPF-1P: Copy/list/verify 
1K/2K/4K/8K ROMS. Ready to plug in. 

@ SSB-MPF-1P: Speech Synthesizer. 
Inc. 20 words and clock program. 
1200 words available. 

@ SGB-MPF-1P: Sound Synthesizer 
Board. 

@ //O—MPF-1P: Input/output board 














Yes! | now realise that! need an MPF1 ! 
PLUS and that itis the lowestcostZ8s0 ' 
SBC available with all these features. ' 


| enclose £165.00 (£140.00 + £21 VAT 
plus £4 carriage). Overseas P.O.A. 


Cheques payable to 
FLIGHT ELECTRONICS LTD. 
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AVERY POWERFUL, TRUE 
MULTITASK LANGUAGE 


AS FAST AS MACHINE CODE 
SIMPLER THAN BASIC 


_ Write Machine Code ina 
- fraction of the time currently 
= 


;.. SCOPE is available from 
». most good quality 

—* dealers and selected 
branches of 


‘WHSMIT H 


a éf how to get 
james pablished 


TECHNICAL] SCOPE is a fully structured 
DETAILS | multitask language specifically 


for writing graphics, animation and sound. 
gael Graphics Mel ale [Ulele(= {ovale mivliNaeelaaley-lele)i-muuitamsy-te) (Omi alo lel-t-] mie) s 


Vial clave mele tam-laer-le(-m-lalem-le\-inltelaoM-javd(-mel-|palcice 
Additionally, with SCOPE present in high memory 
it can be used as an assembler with SCOPE words 
rehome) F-llamrelare[er-le(-maalal-laale)al(ecmm Malcle-1ie)e-male) 

Maren disxele[-Me)Maat-\ealiat-mevele(-MismacteUlia-re 

The language is extremely easy to 

ore} aale)aialclarem-]alemim'd-avm ele -1ai0) 

Take {=t-1em e)ee) Vile lialemaat-lalmicr-liel ats 

ale) @-)\-]11-]¢)(-micelsamsyate) | On 


SCOPE HAS TO BE USED 
TO BE BELIEVED 


48K SPECTRUM 





Software: Reproducible randoms 





M. D. Buxton 





NON-RANDOM 
RANDOM NUMBERS 


The whole point of random numbers is that they 
are unpredictable, so a program that makes use 
of them can be very difficult to debug. This 
article offers a simple solution using a resource 
at hand in every computer. 





ave you ever needed a set of 

random numbers for debug- 

ging, testing or other pur- 
poses? Perhaps you have used a 
simple subroutine such as this which 
will generate 100 random numbers in 
the range 1-10: 


19818 FOR I=1 TO 108 
18028 R=RND (10) 
180838 PRINT R 

19048 NEXT I 

18858 RETURN 


However, the random numbers will 
not be the same every time that sub- 
routine is used. One way of getting 
round this is to put the numbers in an 
array and extract them as required: 


18 DIM R(106) 


180016 FOR I=1 TO 180 
188028 R=RND (10) 
18630 R(I)=R 

10048 NEXT I 

18858 RETURN 


Another simple subroutine in the 
same program can be used to 
extract these random numbers so 
that they reappear in the same order: 


20018 FOR I=l1 TO 108 
20820 PRINT R(T) 
20030 NEXT I 

20048 RETURN 


Unfortunately, the sequence of ran- 
dom numbers will stay unchanged 
only during one run. The advantage 
over the techniques used in the first 
subroutine is that the array can be 
examined as many times as 
necessary during the run. A disad- 
vantage is that large arrays need a 
lot of memory. Where practicable, 
integer arrays should be used in this 
sort of application. 

How about using READ and 
DATA statements? The data read in 
would be the same for every run! 
Let's see: 


18 DIM R(18) 

20 DATA 1,9,4,4,3,7,8,5,6,2 
38 FOR I=1 TO 18 

48 READ R 

58 R(I)=R 

68 NEXT I 


20018 FOR I=l1 TO 19 
20828 PRINT R(LI) 
28038 NEXT I 

28048 RETURN 


Well, a program based on this is not 
so bad for only 10 ‘random’ numbers 
but what about a 100 or a 1000? For 
some purposes, it may not be 
necessary to hold the numbers in an 
array (economising on memory) but 
rather use READ and RESTORE. 
There is still the problem of slaving 
over a hot keyboard, keying in that 
innumerable ‘random’ data. 


NON-RANDOM 
RANDOMS 


There is an easier way, if you do not 
mind the fact that the numbers 
generated are not genuinely random 
and do appear to have a bias in their 
distribution. Have you PEEKed your 
computer's ROM to find a mass of 
seemingly random numbers in the 
range O to 255? The Level II ROM 

of the TRS-80 Model I occupies 
addresses O to 122877, so there are 
plenty of these ‘random’ numbers 
available. PEEKing addresses other 
than those in the ROM reveals more 
numbers but these are not always 
reproducible. The contents of the 
addresses in the ROM do not 
change in the course of running 

a program unless there is a catas- 
trophe! Such an event is likely to dis- 
courage to computer from 
functioning at all. 

Now that we have ‘random’ num- 
bers, what to do with them? Can they 
be manipulated to produce a set of 
numbers within a certain range? In 
short, yes they can. One technique is 
to PEEK consecutive addresses and 
accept the contents if they lie within 
a certain range. 

Another way is to scale the num- 
bers obtained. This sort of subroutine 


will produce ‘random’ integers in the 
range |-10: 


10618 FOR I=1 TO 196 
18020 R=INT (PEEK (I) /25) 
1860308 PRINT R 

16048 NEXT I 

18858 RETURN 


This subroutine will always produce 
the same 100 ‘random’ numbers. 
There is no need to use an array to 
keep them safely; they are readily 
accessible. 

This sort of technique may not suit 
your requirements when random 
numbers considerably larger than 
255 are needed. One way of pro- 
ducing ‘random’ numbers up to 
65535 is to add the contents of one 
address to 256 times the contents of 
another address: 


1986198 FOR I=l1 TO 108 

10020 R=PEEK(I) + 256*PEEK (I+1) 
199308 PRINT R 

16048 NEXT I 

18058 RETURN 


Another technique? Not a few pro- 
grams involve branching if a condi- 
tion is met. Perhaps something along 
these lines: 


19 FOR I=l TO 1000 

20 IF PEEK(I)>204 THEN PRINT 
"HIGH" 

30 NEXT I 


Roughly 23% of the contents of the 
addresses are greater than 204, 
causing “HIGH” to be printed about 
230 times. This information can be 
used to create random mazes at 
higher speeds than those created in 
this sort of way: 


18 RANDOM 

28 CLS 

38 R=RND (11208) 

40 FOR I=8 TO 1823 

50 IF PEEK(I+R)>204 THEN POKE 
15366+1,191 

68 NEXT I 

70 PRINT@O,"READY"; 

88 GOTO 86 


The program generates random 
numbers between | and 100. If the 
number is less than 24 then a 
graphic block is POKEd into the 
video RAM which starts at address 
15360 and occupies 1024 bytes. 
This is done for all the 1024 
addresses, resulting in a random 
maze of about 235 graphic blocks. 
The program occupies 135 bytes 
and takes about 20 seconds to pro- 
duce the maze. Note that the maze is 
different every time that the program 
is run. Now try this program: 


18 CLS 

26 FOR I=8 TO 1923 

30 IF PEEK(I)>204 THEN POKE 
15366+1,191 

48 NEXT I 

50 PRINT@O,"READY"; 

68 GOTO 68 
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This program occupies 113 bytes 
and takes about 10 seconds to pro- 
duce the maze which is the same 
every time that the program is run. 

Now suppose that you like the 
speed advantage but don't want the 
reproducibility of the maze? Simply 
start PEEKing from a different 
address, for example this program 
which takes up 126 bytes: 


18 RANDOM 

28 CLS 

30 FOR I=8 TO 1623 

48 R=RND (190) 

5@ IF R<24 THEN POKE 15360+1,191 
66 NEXT I 

70 PRINT@@6,"READY"; 

886 GOTO 8@ 


This program still occupies less 
memory than that in Listing 8 and 
takes about 13 seconds to produce a 
maze. 

I have not exhausted all 
possibilities, such as the use of ran- 
dom numbers to produce random 


Listing 1. The ATMAN program. 


18 REM ** ATMAN BY M.D. BUXTON 1983 


26 REM ** INITIALIZE VARIABLES 
38 DEFINT A-Z 

40 REM ** START OF VIDEO RAM 
58 C=1536¢ 


68 REM ** @ SYMBOL AND SCREEN WIDTH 


78 C1=64 

88 REM ** INCREMENT OF MOVEMENT 
96 C2=1 

168 REM ** GRAPHICS BLOCK 

118 C3=191 

128 RANDOM 

138 REM ** ATMAN ARRAY 

146 DIM R(29G,3) 

158 REM ** NUMBER OF ATMEN 

166 NR=1 


letters, but such delights I leave to 
you. However, as an example of a 
game which utilises reproducible 
random numbers, there is.. . 


ATMAN! 
ATMAN-IA 


The computer creates a maze 
through which a solitary figure is 
directed home by use of the numeric 
keypad. A bulky slow-witted ATMAN 
will probably try to stop its progress 
by jumping on it. Should the ATMAN 
succeed, you will be given another 
chance to try. In the event that you 
succeed, you will be given the 
chance to try against an increased 
number of ATMEN. The game con- 
tinues until you give up or eventually 
defeat the maximum of 20 ATMEN. 

As it stands, the program 
occupies over 6K of RAM. By omit- 
ting REM statements and spaces it 
can be reduced to less than 4K. The 
copious REMs should make the pro- 
gram self-explanatory. 


NON-RANDOM NUMBERS 








548 REM ** NEW CO-ORDINATES CALCULATED 
558 REM ** TX IS NEW VALUE OF X 
568 REM ** TY IS NEW VALUE OF Y 


578 TX=X-C2 
588 TY=Y+C2 
'598 GOTO 8398 

600 TX=X 

618 TY=Y+C2 
628 GOTO 838 
638 TX=X+C2 
648 TY=Y+C2 
658 GOTO 83¢ 
660 TX=X-C2 
678 TY=Y 

688 GOTO 838 
698 GOTO 154@¢ 


176 REM ** SET UP MAZE AND INSTRUCTIONS IF REQUIRED 7080 TX=X+C2 


188 GOTO 1978 

198 REM ** BUILD UP HOME REGION 
200 PRINT@31,"(4 SPC] "; 

218 PRINT@95,"[4 SPC]"; 

220 PRINT@159,"[4 SPC]"; 


710 TY=Y 

7286 GOTO 83¢ 
7380 TX=X-C2 

7480 TY=Y-C2 

758 GOTO 838 


230 REM ** THIS FORCES AN UPPER CASE 'X' 760 TX=X 


248 POKE 15436,88 

258 REM ** BORDERS FOR MESSAGES 
268 FOR Z=C2 TO 15 

278 POKE C+C1+Z,C3 

298 NEXT Z 


306 REM ** BUILD UP PLAYER'S START 


316 REM ** PLAYER IS 'O' 
320 PRINT@8690,"(5 SPC]"; 
338 PRINT@924,"[2 SPC]O[2 SPC]"; 
346 PRINT@988,"(5 SPC]"; 


358 REM ** SET KEYBOARD MOVEMENT NUMBER TO ZERO 


7786 TY=Y-C2 
788 GOTO 838 
798 TX=X+C2 
808 TY=Y-C2 
818 GOTO 838 


828 REM ** KEEP ON SCREEN 

8308 IF TX>63 THEN TX=63 ELSE IF TX<@ THEN TX=0 
848 REM ** PREVENTING WRAP-AROUND 

850 IF TY>16 THEN TY=16 ELSE IF TY<@ THEN TyY=0 
860 REM ** TP IS TO BE PEEKED (NEW LOCATION OF 


PLAYER 


368 K=0@ 870 TP=C+TY*C1+TX 
378 IF NR=1 THEN PRINT@45, "“*8kRRRKRRKKREREN 880 REM ** KEEP ON SCREEN 
388 IF NR>1 THEN PRINT@O,"*";NR;"* ATMEN *"; 898 IF TP>16383 THEN 1119 


398 GOTO 178¢ 
400 REM ** PLAYER PROMPT 
416 PRINT@45,** YOUR * MOVE *"; 


428 REM ** HAS KEY BEEN PRESSED TO ALTER DIRECTION? 


438 ZS=INKEY$ 
440 IF Z$="" THEN 5190 
45@ REM ** KEYBOARD DIRECTION 


468 REM ** THIS PREVENTS 'FREEZING' 


OR A LETTER 
478 L=VAL (ZS) 
480 IF L=68 OR L=5 THEN 4390 
498 K=VAL(ZS$) 


500 REM ** AFTER SETTING UP, K SHOULD BE ZERO 


516 IF K=@ OR K=5 THEN 430 


520 REM ** NEW POSITION OF PLAYER 
538 ON K GOTO 578,600,630,668,698,700,730,760,79@ 
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980 REM ** CURRENT LOCATION OF PLAYER 


919 PP=C+Y*C1+X 


926 REM ** JUMPING TO WHAT? 


9380 TL=PEEK (TP) 


940 REM ** SPACE 


950 IF TL=32 THEN 1030 


969 REM ** ATMAN 


BY PRESSING 6,5 970 IF TL =Cl THEN 1546 
980 REM ** HOME AND WIN 
998 IF TL=88 THEN 18390 
1906 REM ** WALL OR OTHER - NO MOVE 


1818 GOTO 11186 


1838 POKE TP,79 


1926 REM ** POKE PLAYER INTO NEW POSITION 


1648 REM ** POKE BLANK INTO PLAYER'S OLD POSITION 


1858 POKE PP,32 


45 





Software: Reproducible randoms 


1668 
1876 
1686 
1098 
1190 
1118 
1120 
11390 


1148 
1150 
1168 
1178 
1180 
1198 
1268 
1210 
12290 
12390 
1248 
1258 
1266 


1270 
1286 


1290 
1380 
1316 
1328 
1338 
1348 
1358 
1368 
1370 
13890 
1390 
1408 
1418 
1428 
1438 
1446 
1458 
1468 
1478 
1480 
1498 
1500 
1516 
1528 
1530 
1548 
1568 
1578 
1588 
1598 
1689 
1618 
1628 
1638 
1648 
1658 
1666 
1678 
1689 


1698 
17900 
1718 


1720 
1/30 
SAME 
1748 
1758 
1768 
1778 
1786 
1798 
18008 
1818 
1828 
1839 
1846 
1858 
1860 
1878 
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REM ** UPDATE 

X=TX 

Y=TY 

IF TL=88 THEN 1619 

REM ** REPLACE PLAYER PROMPT 

PRINT@45," ATMAN * MOVES "; 

FOR I=C2 TO NR 

REM ** CAN THE ATMAN MOVE? DELETE THE REM FROM 
LINE 1158 TO ALTER THE CHANCE OF AN ATMAN MOVING 
FROM CERTAIN TO 1 IN 3 


Rl ,3)*-C2 
REM ** IF RND(1@)>3 THEN R(I,3)=8 
NEXT I 


FOR I=C2 TO NR 
REM ** ASSIGN VALUES TO TEMPORARY VARIABLES 


REM ** BX IS HORIZONTAL CO-ORDINATE 
BX=R(I,1) 

REM ** BY IS VERTICAL CO-ORDINATE 
BY=R (I,2) 


REM ** MOVE FLAG NOT SET? 

IF R(I,3) THEN 1520 

REM ** HORIZONTAL AND VERTICAL DISTANCES 

REM ** DX IS HORIZONTAL DISTANCE FROM ITH ATMAN 
TO PLAYER 

DX =ABS (R (I,1) -X) 

REM ** DY IS VERTICAL DISTANCE FROM ITH ATMAN 
TO PLAYER 

DY=ABS (R (I,2)-Y) 

REM ** WHICH DISTANCE IS GREATER? 

IF DX<DY THEN 1368 

REM ** ADJUST HORIZONTAL DISTANCE 

IF R(I,1)>X THEN BX=R(I,1)-C2 ELSE BX=R(I,1)+C2 
GOTO 13880 

REM ** ADHUST VERTICAL DISTANCE 

IF R(I,2)>Y THEN BY=R(I,2)-C2 ELSE BY=R(I,2)+C2 
REM ** BP IS PROVISIONAL LOCATION OF ITH ATMAN 
BP=C+BY*C1+BX 

REM ** KEEP ON SCREEN 

IF BP>16383 OR BP<C THEN 1528 

BC=PEEK (BP) 

REM ** STUCK? 

IF BC=32 OR BC=79 THEN 145@ ELSE 1520 

REM ** MOVE ATMAN 

POKE BP,Cl 

POKE (C+R(I,1)+R(I,2)*Cl) ,32 

REM ** COLLISION 

IF BC=79 THEN 1546 

REM ** UPDATE 

R(I,1)=BX 

R(I,2) =BY 

NEXT I 

GOTO 418 

PRINT@(X+C1*Y) ,"SPLAT!"; 

GOSUB 2538 

IF Z$<>CHRS$ (13) THEN 1568 

CLS 

PRINT "YOU HAVE FAILED." 

GOTO 1738 

PRINT@G," SUCCESS!!! "; 

REM ** INCREMENT NUMBER OF ATMEN 

NR=NR+C2 

PRINT@512,"PRESS ENTER TO CONTINUE."; 

GOSUB 25390 

IF Z$<>CHR$(13) THEN 1650 

IF NR<21 THEN 1719 

PRINT@512,"YOU HAVE DEFEATED ALL OF THE ATMEN! 
WOULD YOU LIKE TO START AGAIN? Y/N "™ 

GOSUB 25386 

IF Z$="Y" THEN RUN ELSE END 

PRINT@512,"WOULD YOU LIKE TO TRY AGAIN WITH ONE 
MORE ATMAN? Y/N " 


GOTO 1746 
PRINT @DLZ,"WUULUD YUU LIKE 


NUMBER OF ATMEN? Y/N" 

GOSUB 2538 

IF Z$="N" THEN END ELSE 19790 
REM ** SET UP ATMAN ARRAYS 
REM ** 28 ATMEN 

FOR I=C2 TO NR 

REM ** RANDOM COLUMN 
RX=RND(C1)-C2 

REM ** RANDOM ROW EXCEPT TOP 
RY=RND (15) 

REM ** LOCATION IN MEMORY 
RL=C+RX+C1*RY 

REM ** SPACE FOR ATMAN 

IF PEEK(RL)<>32 THEN 1880 
REM ** X CO-ORD 


VU YRKY AGALN Wilnm JAE 


1889 
1896 
1989 
1916 
1928 
1936 
1948 
1958 
1968 
1976 
19898 
1998 
2800 
2016 
2829 
2636 
2648 
2856 


2068 


20708 
2888 
2096 
2188 
MENT 
21190 
2128 
2138 
2148 
2158 
2168 
7 

2176 
2188 
21990 


R(I,1) =RX 

REM ** Y CO-ORD 

R(1I,2) =RY 

REM ** FLAG FOR MOVEMENT 

R(1I,3)=0 

NEXT I 

IF NR=l THEN PRINT@G," * ONE * ATMAN "; 
REM ** PLAYER PROMPT 

GOTO 4180 

CLS 

PRINT“ATMAN GAME" 

PRINT" @@@@eeeeee" 

PRINT 

PRINT"WOULD YOU LIKE INSRUCTIONS? Y/N " 


GOSUB 2536 
IF Z$="N" 
CLS 

PRINT" I WILL PRINT A RANDOM MAZE COMPRISING 
SPACES 


THEN 2296 


WALLS "s,CHuRG (03)3" 
ATMEN @ 
A HOME x 


AND YOURSELF Q* 
REM ** THESE POKES FORCE THE CORRECT CHARACTERS 
IF THE LOWER CASE DRIVER PROGRAM OF SEPTEMBER 
'82 CT IS BEING USED 

POKE 15585,C3 

POKE 15633,88 

PRINT 

PRINT"USE THE NUMERIC KEYPAD TO DIRECT YOUR MOVE 
AND EVENTUALLY GET HOME." 
PRINT 

PRINT"7=UP AND LEFT 8=UP 
PRINT 

PRINT"4=LEFT 

PRINT 

PRINT" 1=DOWN AND LEFT 


9=UP AND RIGHT" 
6=RIGHT" 
2=DOWN 3=DOWN AND RIGH 
PRINT 


PRINT 
PRINT"USING ANY OTHER KEY WILL NOT WIN THE GAME 


FOR YOU!" 


22068 
2218 
2228 
2230 


PRINT"PRESS ANY KEY TO CONTINUE." 

GOSUB 25380 

CLS 

PRINT"*HITTING THE KEYS RAPIDLY WILL NOT RESULT 


IN FASTER MOVEMENT*YOU MAY ALTER DIRECTION WHEN YOU 


HAVE 


SEEN THE * YOUR MOVE * MESSAGE APPEAR IN THE TOP 


RIGHT HAND CORNER OF THE SCREEN." 


2248 


PRINT"FAT ATMEN WHICH CAN'T GET BETWEEN DIAGONAL 


LY JOINING WALLS (UNLIKE YOU) WILL TRY TO JUMP ON YOU 
| THEY ARE PERSISTENT BUT NOT VERY INTELLIGENT. THEY 
ARE NOW HIDING IN THE WALLS."; 


2258 


PRINT" SOME OF THE MORE DEVIOUS ATMEN WILL NOT A 


PPEAR IMMEDIATELY. SOME WILL WAIT, HOPING THAT AS YOU 


PASS 


THEY WILL BE ABLE TO JUMP ON YOU IN A SURPRISE A 


TTACK! LESS PATIENT OR EVEN LESS INTELLIGENT ATMEN WI 
LL APPEAR FOR NO APPARENT REASON." 


2260 PRINT"PRESS ANY KEY TO CONTINUE." 
2288 GOSUB 2530 

2298 CLS 

2300 REM** CO-ORDS FOR PLAYER START 
2318 X=30 

2328 Y=14 

2330 CLS 

2349 PRINT"PRESS R FOR A RANDOM MAZE. PRESS ANY OTHER 
KEY FOR AN UNCHANGING MAZE." 

2358 GOSUB 2536 

2360 IF Z$<>"R" THEN 2468 

2378 CLS 

2380 REM ** SELECT ROM AREA 


2398 
2488 
2418 
2428 
2436 
2448 
2458 
2468 
2476 


24898 
2498 
2580 
2518 
2528 
2538 
2548 
2558 


R=RND (11206) 
FOR P=R TO R+1623 
REM ** WALL OR SPACE 


IF PEEK(P)>22@ THEN POKE (P-R+C) ,C3 
NEXT P 

REM ** RANDOM MAZE DONE 

GOTO 268 

CLS 

REM ** THIS IS TO CREATE AN UNCHANGING RANDOM 
MAZE 

FOR P=0 TO 1823 

IF PEEK(P)<25 THEN POKE C+P,C3 

NEXT P 

GOTO 208 

REM ** KEYBOARD SCAN ROUTINE 
ZS=INKEYS 

IF zZ$="" THEN 2530 ELSE RETURN 

END 
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Review: Improved Apple editor 


Henry Budgett 





LOSTOCK 





SCREEN EDITOR 


The Apple’s archaic editing system is enough to 
give anyone the pip. Now the Lostock Screen 
Editor offers an improved performance for owners 


of the Il, Il+ and lle. 





ne of the most fundamental 

utility programs built into any 

computers operating system 
must surely be its screen editor. 
Without such a routine the user is 
forever condemned to _ retyping 
everything that has a mistake in it. 
While this may just about be 
tolerated on a single word it certain 
causes immense frustration when an 
80-character line of BASIC has to be 
keyed again. 

There are three common types of 
screen editor; the line editor, the 
memory editor and the text editor. 
The first of these dates from the days 
when computers were rare and 
access was only available through a 
remote terminal such as a Teletype. 
The incorrect line could be recalled 
and edited with a series of com- 
mands; the Tandy series of com- 
puters still retains this system, as 
does the Dragon 32. 

The memory editor first appeared 
on the Commodore PET and is regar- 
ded by some as the best form of 
_ screen editor you can have. To edit a 


line all you have to do is move the 
cursor to the incorrect portion, 
press Return. 


change it and 
However, it is possible to create 
phantom lines and once a change is 
nade you cannot see the previous 
state of the line on the screen. I per- 
sonally don't favour this kind of editor 
s its all too easy to make serious 
mistakes, but it does have the 
advantage of speed and ease of use. 
As a half-way house between the 
distinct clumsiness of a line editor 
and the speed of the memory editor 
there is the text editor. Possibly the 
best example currently available is 
the one supplied on the BBC 
Microcomputer/Electron. The idea is 
simple; you move a ‘copy cursor 
around with the direction keys and 
anything that you wish to add to the 
new line is actioned by the Copy 
Key. In this way a new line can be 
built up from parts of other lines as 
well as new input from the keyboard. 
There are no clumsy command 
sequences to remember, which 
makes it much simpler to use than a 


i0n 1s 


line editor, and the original vers 
creen for 


retained on the = s 
comparison. 


ONE BAD APPLE 


Of all the microcomputer editing 
functions which have been based 
around these three systems the one 
that stands out on its own is that of 
the Apple II. It is, quite simply, 
appalling! Despite the improvements 
when the Apple Il+ was introduced, 
and the addition of a full set of cursor 
keys on the Apple Ile, it must still 
rank as the least useable editor ever. 

To edit a line of program or even 
a mistyped command is slow and 
awkward. The original (Apple II) 
method required that the Control key 
be used in conjuction with the WZAS 
keys to give Up, Down, Left and 
Right movements of the cursor. The 
Apple Il+ improved this slightly by 
offering the Escape Mode editor. 
Here the cursor movements are con- 
trolled by the IMJK keys once the 
Escape key had been pressed. In 
both cases the Right arrow key would 
copy the characters it passed over 
into the line buffer and the Left arrow 
would delete characters. Untfor- 
tunately, the characters you were 
putting into the buffer couldn't be 


seen and it was all too easy to miss 
letters or delete characters. To further 
compound the problem, the 
Applesoft interpreter re-formats the 
spacing of the lines displayed by 
LIST. While this makes the programs 
very legible it can make editing them 
a nightmare; text strings get split and 
umpteen spaces are added which 
must be stepped over or they end up 
in the ee line. 

Small wonder, then, that among 
the ae popular utility programs for 
the Apple are decent line editors. 
One of the more recent offerings is 
the Lostock Screen Editor which i 
supplied as a HELLO program on 
disc together with a manual. For 
those readers unfamiliar with the 
Apple it is probably worth explaining 
the function of the HELLO program. 
Apple discs can be created as Mas- 
ters or Slaves; the former carry all the 
DOS information while the latter do 
not. When an Apple is powered up 
with a Master disc in its drive it 
automatically loads a file called 
HELLO from the disc. As well as 
loading the DOS this can be a pro- 
gram in its own right, so the user can 
set up a menu or automatically load 
utility programs. In the case of the 
Lostock Screen Editor it loads and 
initialises the editor program. 

In use the editor converts the 
Apple's primitive editing facility into 
something approaching the BBC 
Micro's text editor. To initialise the 
editing function, simply type Control 
W and the normal Apple cursor is 
replaced by an underline symbol. 
This is the copy cursor and can be 
moved around the screen with the 
Control-WZAS keys. 

Once the copy cursor is over the 
part of the line you wish to copy, 
simply press the Right arrow — the 
letters that it copies will appear on 
the input line. Deletion may be 


un 


achieved with the Left arrow: charac- 
ters are removed from the input line 
and not the copy cursor position. 
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during a line edit you want to tell the disconnect the editor is that with an bore Close, Lostock, Bolton, Lancs 
editor to ignore all the extra spaces Apple Ile running an 80-column BLO4G 
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HI-FI NOW! —the new magazine with a new way of 
giving you the buying information you need—NOW! 


HI-Fl NOW! —will tell you the £99 speaker that sounds like 


£200—NOW/! 

HI-FI NOW! —will help you spend £15 to make your 7 a. ie | 

personal stereo like a million dollars—NOW/!  § oe yy a 
HI-Fl NOW! will even make sure you spend £2,000 ey : 
wisely—-NOW! 

HI-FI NOW! -— answers the questions you are asking about S poe 

hi-fi—-NOW/! \ E790 buy 


we show y! 


Wharfedale, KEF, Rotel, Sansui, Marantz, Koss, Sony, Pioneer, Hitachi. Just some of © 
the names in the first issue of HI-FI NOW! 


HI-FI NOW! AT YOUR NEWSAGENT NOW! ONLY 85p! 
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Software: 6502 music routines 


APPLE MUSIC 





Dr. Barry Landsberg 











SOME NOTES ON 
THE APPLE 





Last month we looked at a superior method of 
generating music by machine code routines for 
the 6502. In the second part of the series we put 
a bit of life into the notes by providing improved 


tone. 





ave all of you APPLE owners 

typed in the programs from 

last month's article and lis- 
tened to the ‘Pizzicato Polka’ and the 
‘Toccata’? Perhaps you may have 
even programmed a vast range of 
other tunes already! Ifso, once you 
have got over the initial joy of ex- 
tending the musical range of the 
Apple, you might have noticed that 
the tone quality of the music pro- 
duced still sounds somewhat hollow 
and empty. Furthermore, if you chose 
to examine my suggestion that the 
longest pause possible was given by 
a value of the time parameter T of 
200 and put, say, 500 instead, you 
might have found that half the time 
you get an extraneous ‘click’ gener- 
ated and half the time you don't — 
even though all the registers of the 
6502 have been set to the same 
value in each case! The purpose of 
this article is to provide an explan- 
ation of these points, and also an 
enhancement to the tone quality of 
the music generated by the APPLE 
using software alone. 

The machine code programs pub- 
lished in last month’s article all pro- 
duce music by waiting for a certain 
specified period of time and then 
accessing the address $CO30, which 
according to the Apple Reference 
Manual changes the state of the 
loudspeaker either from 0 V to 5 V, or 
from 5 V toO V, depending on its 
previous state. This process is re- 
peated over and over again for the 
duration of the note and produces a 
square-wave with a mark-to-space 
ration of 1. A Fourier series (which is 
just a mathematician’s way of split- 
ting up a periodic waveform into a 
sum of sine waves) on this kind of 
square-wave shows that the nth har- 
monic has an amplitude of (sin(nz/ 
2))/n, from which it follows that only 
the odd harmonics are present, and 
the first, third, fifth... harmonics 
have amplitudes of 1, 1/3, 1/5... 
respectively. This situation is shown 
diagrammatically in Fig. la, where 
the waveform is drawn followed by a 
graph showing the relative amounts 
of the first 15 harmonics. This 


analysis is made on the supposition 
that the loudspeaker generates the 
waveform that has been fed into it, 
which is not a valid assumption 
especially at higher frequencies. 
Still, it does give a rough idea of 
what is happening. Throughout this 
article, the magnitude of the ampli- 
tudes will be taken, and their sign (ie 
whether positive or negative) will be 
ignored. The human ear is relatively 
insensitive to phase anyway. It is the 
absence of even harmonics that is 
the hallmark of musical notes gener- 
ated in such a fashion by the com- 
puter, and that gives rise to the 
characteristic hollowness of each 
note. 


RAISING THE TONE 


Having demonstrated that a square 
wave gives rise to a hollow-sounding 
note, but that the loudspeaker on the 
Apple has only two voltage levels, 
how can we possibly enrich the 
sound of each note without having to 
resort to a digital synthesis method? 
One way to do it is to still produce 


Fig. 1 Square waves with mark-to- 
space ratios of 1:1 (a), 1:3(b) and 
1:2 (c). Also plotted are the 
amplitudes of the first 15 har- 
monics of these waveforms as 
calculated by a Fourier series 
analysis. 


notes using a square wave, but with 
a mark-to-space ratio not equal to 1. 
Consider what would happen if a 
mark-to-space ratio of 1:3 were to be 
generated. The Fourier series analy- 
sis shows that the nth harmonic now 
has an amplitude equal to (sin(nz/ 
4))/n, and although there is no har- 
monic that is a multiple of 4 present, 
there are still plenty of even har- 
monics in the note, and it will cer- 
tainly have a different tone quality to 
that of the normal square wave! 
Figure 1b shows this situation 
diagrammatically, and the result 
would be the same had the mark-to- 
space ratio been 3:1 instead. 

Now that we have the hint that 
this kind of waveform might produce 
a more pleasant sound, how do we 
program it under the very stringent 
condition that it must be compatible 
with, and easy to integrate into, the 
music package given in last month’s 
article? All kinds of general mark-to- 
space algorithms may be sought, but 
as these would involve extra coun- 
ters so that the routine knows exactly 
when to strobe the loudspeaker and 
when not to, the timing of the loops 
controlling the pitch would be affec- 
ted and the result would be less than 
musical! One way round the problem 
is to write a routine specifically for a 
1:3 mark-to-space ratio by having 
four identical routines like that of List- 
ing 2 in last month’s article, and to 
jump from one to the next in a cyclic 
tashion. In addition, the last two 
routines must not strobe the speaker, 
but must take up exactly the same 
time as those that do. To do this, the 
instruction BIT $CO30 (which takes 
four clock cycles and strobes the 
speaker) is replaced by two NOP 
instructions which do nothing at all, 
but also take four clock cycles. 
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The machine code routine to do 
this is given in Listing 6, and starts at 
address $0358, which is immediately 
following that of Listing 4 last month. 
It should be noted that Applesoft and 
DOS use an area of memory starting 
from $03D0 to store some of their 
jump vectors, and so the whole 
music package tucks into this avail- 
able area of memory with only a few 
bytes to spare! The result of all this is 
that we now have a routine which 
plays an enriched sound, and which 
may be invoked by calling sub- 
routine $0358 instead of $0300. 
However, doing this gives rise to a 
note that is an octave below that 
generated by the routine at $0300. 

To integrate this program into the 
package presented last month we 
now only need to alter some CALL 
statements or do a quick POKE! For 
example, we merely replace the 
command CALL 768 in line 60 of 
Listing 3 with CALL 856 in order to 
play a harmonically enriched version 
of the ‘Pizzicato’. However, due to the 
nature of Listing 5 it is played an 
octave lower, but by adding IF | 
THEN I=I+12 at the end of line 30 
we can bring the Pizzicato back to 
the correct pitch. Try comparing the 
two and see for yourselves which is 
preferable! 

The general music package des- 
cribed last month calls Listing 5 to 
set up the musical buffer, and then 
calls Listing 4 to step through the 
buffer and produce the melody. In 
order to make it generate the en- 
riched sound described above, it is 
only necessary to alter the com- 
mand JSR $0300 command in Listing 
4 to JSR $0358. This may be done 
either from the Apple's monitor, or 
more easily by the command POKE 
851,88 which must be executed 
before CALL 799 is reached. 


It is unfortunate that the ‘Toccata’ 
given as a demonstration of the 
ability of Listing 5 is not the best 
example for this enriched sound 
routine, as the bottom note is already 
so low that making it yet an octave 
lower reduces it to well below that 
acceptable as a musical note. 
Neither may we transpose it up an 
octave as was done for the ‘Pizzicato’ 
because the ‘Toccata’ already spans 
three and a half of the available four 
octaves. Still, if the bottom notes may 
be tolerated, the rest of the ‘Toccata’ 
is certainly enriched. The lesson to be 
leamt from this is not to use anything 
below note 12 when calling Listing 6. 

In summary, the command POKE 
851,88 ensures that Listing 5 plays 
the melody in the musical buffer 
using the waveform with a mark-to- 
space ratio of 1:3, while POKE 851,0 
gets the melody to be played using 
the normal square wave. 
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GETTING RICHER 


The reader may wonder at this stage 
why | picked out a mark-to-space 
ratio of 1:3 instead of any other ratio. 
The reason is that, while the normal 
square wave needs two traversals of 
the timing loops for each cycle, the 
1:3 ratio needs four. The periodicity 
(and thus the resultant frequency) is 
therefore halved, and the melody is 
played an octave lower. No change 
of key signature is involved, and the 
optional IF | THEN I=I+12 is only to 
alter the octave at which the melody 
is pitched. Any other simple ratio of 
small whole numbers results in a 
transposition of the music to another 
key, or sometimes even to musically 
non-existent tunings. 

Having gone to all the trouble ot 
setting up a program which gener- 
ates a mark-to-space ratio of 1:3, is 
there any way to easily change the 
mark-to-space ratio? Is there in fact 
any need to? Well, after a while, 
even the 1:3 ratio itself starts to 
sound empty and the ear craves yet 
further variety. Perhaps the lack of 
fourth harmonic and the dominance 
of odd harmonics in the waveform 
has something to do with this! It turns 
out to be very easy to convert Listing 
6 into a generator of square waves 
with a 1:2 mark-to-space ratio. Now 
the nth harmonic has an amplitude 
of (sin(n7/3))/n: this is shown pic- 
torially in Fig. 1c. However, this wave 
shape has a periodicity of 3 cycles 
instead of 2, and thus the notes pro- 
duced have two-thirds of the tfre- 
quency of the regular square wave. 
This turns out to be a musical interval 
of a fifth, and thus any pitch para- 
meter P produces a note seven semi- 
tones lower than would be produced 
by Listing 2. 

How then do we convert Listing 6 
to produce a 1:2 mark-to-space 
ratio? We must bear in mind that 
Listing 6 consists of four similar 
routines where only the first two 
strobe the speaker, and all four are 
stepped through in a cyclic fashion. 
It can be fairly easily seen that step- 
ping through the first three only gives 
rise to the desired waveform, and this 
is done by replacing the instruction 
JMP $03B3 (which causes a jump 
trom the third routine to the fourth) 
with JMP $035A, which jumps back 
to the first one instead. This may be 
done under program contro! with the 
instruction POKE 943,90 which con- 
verts the 1:3 waveform to a 1:2 
waveform, and the command POKE 
943,179 may be used to regenerate 
the 1:3 ratio again. 

If the commands POKE 851,88 : 
POKE 943,90 are typed into Listing 
5, the ‘Toccata’ is now played in G 
minor (sorry, Bach!), and the above 
commands followed by IF I THEN 
I=1+7 typed in to line 30 of Listing 3 
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Fig. 2 The waveform of the 
voltage across the loudspeaker of 
an Apple as measured on an 
oscilloscope. The frequency of 
the waveform is about 13 Hz. 
Note that the flat portion lasting 
about 15 milliseconds is followed 
by a decay with a half-life of about 
10 milliseconds. 





produce the ‘Pizzicato’ with the 1:2 
waveform. It is my opinion that this 
gives rise to the sweetest sounding of 
the notes produced by the wave- 
forms discussed in this article. 

In summary, a complete musical 
package has been given in which 
not only is the melody easily pro- 
grammable as explained in last mon- 
th's article, but by using only one or 
two POKE commands, the waveform 
may be chosen to have a mark-to- 
space ratio of 1:1, 1:2 or 1:3. This 
means that the tone quality may now 
be chosen for any melody, and even 
changed within the melody, some- 
what analogous to pulling stops on 
an organ. This is surely a minimum 
that should be expected from any set 
of programs which purport to play 
music that is actually pleasant to lis- 
ten to! 


THE SPEAKER 
STROBE 


The remainder of this article is con- 
cemed with a feature of the strobe to 
the Apple’s loudspeaker, which 
caused me great confusion at first 
while I was writing and testing the 
machine code musical routines. The 
Apple Reference Manual contidently 
asserts that every time the address 
$C030 is accessed, an audible click 
is generated by the loudspeaker. Is 
this true? Type in the following 
program: 


1@ FOR I=l1 TO 10 

20 X=PEEK (-16336) 
$CO30 

30 FOR J=l1 TO 108 : 
** DELAY 

40 NEXT I 


: REM ** STROBE 


NEXT J : REM 


How many clicks do you hear when 
you run it? Surely we must expect 10, 
but I assure you that there are only 
five! However, if one makes fre- 
quency measurements on musical 
notes produced by the routines in 
this series and does simple timing 
calculations, it is evident that there 
actually is one strobe to the speaker 
for each and every access to the 


address $C030. 
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This seemingly contradictory 
state of affairs was brought to light 
while trying to understand two obser- 
vations made about the musical 
routines. The first is that a pause with 
a time parameter between 256 and 
511 sometimes produced an unwan- 
ted click and sometimes didn't, as 
mentioned earlier. The second is the 
more subjective observation that 
sometimes low notes sounded worse 
than at other times when using the 


waveform with a mark-to-space ratio 
of leg. 


The explanation of all this is to be 
found in the circuit diagram on Page 
114 of the Apple Reference Manual. 
The capacitor C11, along with the 
4'/k resistor and diode, can alter the 
incoming square wave to a step 
followed by a voltage decay for a 
positive-going step, and by a drop to 
O V until the appearance of the next 
strobe for the negative-going step. 


This wavetorm is now the input to a 
Darlington transistor pair which 
actually becomes saturated im- 
mediately after a positive-going step. 


A diagram of the voltage across 
the speaker as a function of time is 
shown in Fig. 2. This was determined 
from a (so-called) square wave of 
about 13 Hz, and was measured on 
an oscilloscope. It is evident that 
there is no voltage decay for the first 
15 milliseconds following the strobe 
(corresponding to the period of time 
for which the Darlington pair is 
saturated), and thereafter the voltage 
decays to zero in an exponential 
fashion with a half life of about 10 
milliseconds. 

It is now clear why only five clicks 
were heard in the above program, 
and why some pauses gave extra 
clicks only half of the time — it is 
because when the loudspeaker is left 
in a state with 5 V across it, it decays 


DATA 65279 ,705 ,724 ,656 ,646 ,610 575 544 514 485 458 432 408 


2 
3 DATA 384, 362,342,322 ,304, 287 271 256,241 ,228 ,215 203 
4 LATA 191,180,170,160,151 143,134,126 ,119 ,113,106 100 


U35S= AY 00 
5 DATA 95,89,34,30,75,71,67 ,63,60,56,53,50,47 ,44 035A- AG FL 
10 GOSUB 1000 osct~ dd EE 
20 AD = 16384:TF = 256:UN = 1 035E- 69 Ol 
30 READ I,T 0360- nO US 
40 P = N(I):P1 = INT (P / TF) + UN:T1 = INT (T / TF) + UN 0362= Ce FF 
50 P2 = P = TF * INT ((P + UN) / TF) + UN:T2 = T = TE * INT 0364- DO 04 
((T + UN) / TE) + UL 03b0- CO FF 
6U POKE AD,PL: POKE AD + 1,P?2. POKE AD + 2,T1: POKE AD + 3,T2:AD = AD +4 0368 FO SE 
170 IF T THEN 30 ‘O36A- CA 
|; 100 CALL 799. END O36B- =D ~Fl 
130 DATA 29 .300,32,200,40,100 41,600 036D- = $8 
140 DATA 36,100,39,100,37,100 ,32 200,31 ,160 ,30 ,550,0 ,50 036C- BO EE 
}150 DATA 30,300,32,200,34,100 ,36 600 0370- 2¢ 30 CO 
100 PATA 34,100 ,32 ,100,31,100,30,2UU,39 ,100,37 606 0373- 4C 76 03 
500 LATA 0,0 U375= = AG FL 
1000 DIN N50) O37s- <A4 FC 
1010 FOR L = O TO 50. READ N(I): SEXT I O37A- 69 Ol 
1020 RETURN 037C- ib Qs 
O37E- C6 FF 
U330—- vO O04 
0352- C6 FE 
U384— FU 42 
U380- CA 
= O387- DO Fl 
Listing 6. o3a9~ 88 
2000- Ad UV LDA #500 DISENABLES STROBE TO SPEAKER U38A- DO LE 
20U2—- BD 1A U3 STA. «~SU3LA , IW SUBROUTINE $0300 036C- = 2C 30 CO 
20U5= AS FE LDA $F¢e O38F- 4C 92 U3 
2U07- 35 EE STA $EE 0392- AG FD 
2009- A5 FF LDA $FF U394- AS FC 
20Ub- 65 EF STA SEF 03¥%0- 69 Ol 
20UL-—s AY “OL LDA #$01 U355- nO 08 
2U0F= 65 Fi STA 3FE O39A= Cis FF 
2011l= A9 16 LDA #$1od U39C- DO U4 
2013-85 FF STA SEF U39E-= C6 FE 
2015- 20 58 63) =JSk $0358 , PLAY *> WOTE FOR #$16 UNITS OF TINE U3AV- FO 20 
2U18- 33 SEC U3A2Z— CA 
2019= AS EF LDA SEF V3A3—- —s-DO- Fl 
201E- C9 lb SKC #316 Q3A5- $3 
2UiL- BO 04 BCS $2023 U3AG— DD LE 
201F- C6 EE HCC Ske O3A6- LA 
2021- = FU 19 BEQ $2040 U3Ay- EA 
2023- 6&5 EF STA SEF U3AA- = &C- AD —OO3 
2025- AY OL LPA #501 G3AD- A6é FD 
2027-85 FE STA $FE U3AF- A4 FC 
2029- = AY UB LUA #505 O3bl- oy Ul 
2023- 85 FF STA SFF U313- DO Vs 
2u2r= 20 0003 JSk $0300 , SILENCE FOR #$50B UNITS OF TIME . O3B5- C6 FF 
2030-36 SEC O3R7- DU U4 
2031- AS EF LDA $EF O3B9-= Co FE 
2033- £9 OB SBC #S0B O3BD- FU OR 
2035- = BO 04 BCS $203% 3C3- CA 
2037- C6 EE DEC SEE U3uE- DU Fl 
2039- FO 05 BEY $2040 03C0- 33 
2Uu38b- = 85 EF STA SEF U3Cl- = dU on 
203D- 4C 00 20) JMP $20U0 O3C3- EA 
204U-  =A9 CU LDA #$CO , RE-ENABLES STROBE TO SPEAKER O3C4= CA 
2042—- 8b 1A 03 STA $031A , IN SUBROUTINE $0300 O3C5=- 4C 5A 03 
2045-60 xTS U3C8= = Gv 


Listing 7. 


Listing 8. 


APPLE MUSIC 


nO ee 


to O V within 100 milliseconds. After 
this time the next strobe does not 
have any effect on the loudspeaker, 
even though the controlling flip-flop 
does change its state! Finally, low 
notes with an uneven mark-to-space 
ratio may sound different depend- 
ing upon whether the longer of the 
two delay times between loud- 
speaker strobes corresponds to 0 V 
across the speaker or not. 

This article extends the musical 
package presented last month to 
include a method of altering the 
basic waveform of the notes pro- 
duced and thus a corresponding 
change in the tonal quality of the 
music generated by the Apple. It 
also warns of possible pitfalls that 
may be encountered at lower fre- 
quencies due to hardware con- 
siderations. I hope these articles will 
catalyse readers into doing further 
musical experiments on their Apples 
— | certainly shall be'! 
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DRAGON, BBC, SPECTRUM DEALERS 

























BBC B Computer 1.2 O.S £399.00 
A - B Upgrade Kit £60.00 
D.O.S. Kit £95.00 
1.2 ROM £8.00 
Tatung RGB Monitors £260.00 
Sanyo Green Monitors £97.00 
Disc Drives from £228.00 
Joysticks (Patt £13.00 
View Word Processor £59.00 
Acorn Electron (Phone Availability 

All connectors, plugs and sockets for BBC. ribbon cable, discs 
C.20 C.15 C.12. cassettes etc. IN StOCK 

Centronics Printer Cable (BBC & Dragon) £12.90 
R.T.T.Y. Program for BBC B £7.50 
RT.T.Y. Circuit Board including instructions £6.30 
Cassette Recorders from £18.90 
Computer Dust Covers £3.00 
Star 510 Printer (inc. Cable) £299.00 
CP80 Printer (Inc. Cable £299.00 
Printer Cable (BBC or Dragon 32) £12.90 


Epson RX80, FT, FX80 
DRAGON SERVICE CENTRE 


(Phone avaiiability) 





Dragon 32 £175.00 
Dragon 32 Disc Drive (Inc. Controller) £275.00 
Joysticks (pair) £19.00 
ZX Spectrum 48K £129.00 


ZX Spectrum 16K £99.90 













Wide range of software for BBC. Dragon 32, ZX Spectrum etc. 

Please send SAE for full list. Post and package on small items 50p 

All available mail order. Access and Visa. 24 hour phone. All prices 
include VAT at 15% 


S P ELECTRONICS 


48 Linby Road, Hucknall, Notts NG15 7TS. 
TEL: Notts (0602) 640377 


ROSE SOFTWARE 


EDUCATIONAL SOFTWARE 
FOR THE SPECTRUM 
(16K or 48K) 


YOUNG LEARNERS 1 


4 programs for the young 
computer user: abacus, 
telling the time, shopping 
and snakes. All with 
excellent graphics. An 
easy introduction to 
computer aided learning. 


£5.95 per cassette 


G.C.E. "O” LEVEL 
MATHS REVISION 
GEOMETRY 


6 programs of multiple 
choice questions, 
covering properties of 
parallel lines, triangles, 
various polygons and 
circles. All questions use 
generated numbers. An 
explanation of the correct 
answer is given. 


G.C.E. °’O’’ LEVEL 
FRENCH VOCABULARY 
REVISION 


Six programs on one 
cassette. The first 3 
programs test vocabulary 
under various headings: 
eg ‘‘on holiday’’. Three 
further programs: 
homework tester, 
common words and 
phrases, and irregular 
verbs. 


We have a /arge range of 
educational p >grams for 
the Spectrum and 2X81. 


Send sae for catalogue of all our products to: 
ROSE SOFTWARE, 
148 Widney Lane, Solihull, West Midlands B91 3LH 
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Telephone: Mold 56842 
MM 400 inc BASIC £115 
800 £299 

» 48K Lynx £225.00 


ATAR 


VIC STARTER PACK £139.99p 
Phone Orders Welcome on 0352-56842 


NEXT DAY DELIVERY AVAILABLE Please ring for details: 


I enclose cheque/P.O. for £ 
or please debit my Access Card No. 


NAME __ 


Epson RX 80T 
Epson RX 80FT 
Epson FX80 

1p oye) 0 2. Bele. 
Epson MX1@0 


STAR & EPSON — 


Please phone for Access or Visa buying 






Nearly 400 Programmes 


IN STOCK 
Ring for our Price List 








CLWYD. PERSONAL, 


JOMPUTERS 


Unit 19, Daniel Owen Precinct, Mold, CH7 1AP. 








COMMODORE 64 £229 











ORIC 1 48K £139.99p 








Postage & Packaging FREE 





















ADU E 





PRINTERS AT UNBEATABLE PRICKS 


£226 + VAT Star 510 
£2853 + VAT Star 515 
£337 + VAT CTTLGPSO 
£485 + VAT Vi Role) 


- £390 + VAT 


£245 + VAT 
£335 + VAT 
£255 + VAT 
£270 + VAT 
Seikosha GP 7OOA &337 + VAT 










THE BEST ON THE MARKET. 


All printers carry a 1 Year Guarantee and come with paper. 
Shipment is by TNT Overnight Express to your door — Please 
add £7 + VAT carriage. _ 


Payment by Cheque, Access, Visa etc. 


Shipments throughout UK. We can export 
to most countries in the world. 


IMMEDLATE 
details. DELIVERY. 


Micro-Spares 


We cannot and will not be beaten on Price! 


Note our change of address 


104-106 Hanover Street, Edinburgh EH2 1DR 


031-226 3345 
COMPUTING TODAY FEBRUARY 1984 
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METAMORPHOSIS CREATOR'S REVENGE | 

You stumbled into the nest of the Cyglorx The creator assembled a mag$ive army ot 
and find yourself fighting off robot tanks robots and insects to take#@venge on the 

guarding the Cyglorx eggs. You think you _ earth. Destroy ins@ets, get treasures, and get 



























have everything under control and then the the. neuire feactivator. Battle 
eggs start hatching. Commodore 64 version | ind destroy the neutron bomb 
features 4 different screens. re it annihilates Yaur city: Miss and you 
VIC 20 - COMMODORE 64 must face the mutants. Features 4 different 
£7.95 a screens. 
“™. COMMODORE 64 
; £7.95 
we OTHER GAMES AVAILABLE 
A - eee OCU Oc a mMOCUL Saeeiaae MOD aseeeneal mocut 
B ¢e) [ej AMPS} ATOR see br A eae 7 . 
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Review: FORTH ROM 





Don Thomasson 


ZX81-FORTH 


lf you’re fed up with your ZX81 and its Sinclair 
BASIC, it’s possible to perform a bit of surgery 
and turn it into a different beast entirely. We 
review the multi-tasking ZX81-FORTH ROM from 


David Husband. 





or lay observers, one of the 

oddest things about computers 

is the way they can be 
transformed into different machines 
by changing one small component. 
For example, it is, possible to take a 
standard ZX81, fit a new ROM, and 
produce a computer specialised to 
the FORTH language. 

Is that good? Opinions may vary, 
but answers to the question need to 
be based on more than a superticial 
glance at the subject, so let us probe 
a little more deeply. 

FORTH seems to be __ the 
language of the moment, with fresh 
versions springing up everywhere. 
Unfortunately, many implementa- 
tions are rather idiosyncratic, and 
there will soon be as many dialects 
of FORTH as there are of BASIC. 
That is a pity, because it inhibits the 
publication of source code pro- 
grams. A program written for one 
implementation would probably be 
difficult to convert so that it would run 
on another version. The process of 
conversion might largely be a matter 
of defining new words, but that may 
need specialised knowledge. 

ZX81-FORTH is radically different 
from most of its contemporaries. For 
one thing, it provides for multi- 
tasking. At a very simple level, this 
means that it can run a foreground 
program normally, but slip away to 
do other tasks at regular intervals. It 
would be possible to run a time dis- 
play program or monitor input data 
from an extemal source concurrently 
with the execution of a main 
program. 

At a time when newcomers to 
FORTH are struggling to come to 
terms with single-task systems, multi- 
tasking may seem an unnecessary 
complication, but use of the facility is 
not mandatory. The system can be 
used quite simply in the single-task 
mode. 


THE HARDWARE 


It is easy enough to talk about fitting 
a new ROM, but the process can 
present problems. Some ZX81s pro- 
vide a socket for their ROM chips, 
some do not, the ROM being firmly 
soldered to the printed circuit board. 
The socket and the board layout pro- 
vide for 28 pin connections, though 
the normal component has only 24 


56 


pins. The extra pins cater for the fact 
that an EPROM requires more con- 
nections than a pre-programmed 
equivalent — one to select program 
mode, another to supply the voltage 
used for programming. To compli- 
cate the matter still further, various 
manufacturers have different ideas 
regarding the position of the pins. 

To overcome these problems, the 
FORTH ROM is supplied with a 
socket, and — if necessary — the 
ROM pins are ‘modified’, as the 
manual puts it. It all sounds slightly 
dicey. 

Fortunately, it is possible to 
obtain ready-converted systems, and 
that might be a wiser course. The 
guarantee would not survive the pro- 
cess of home conversion. The situa- 
tion regarding the guarantee for 
converted machines needs to be 


checked. 
SWITCH ON 


The point about the guarantee came 
to mind because the review unit had 
a problem, one seen before in 
ordinary ZX81s. Due to some contu- 
sion in the sync-generating system, 
there were two overlapping displays 
on the screen. It was possible to 
carry out some experiments, but only 
with some difficulty. 

One point that emerged early on 
was that the Rubout only back- 
spaced, the original text being 
altered only when it was overwritten. 
Worse, beyond about mid-screen the 
Rubout key had no effect. Combined 
with the need to key in each letter 
separately, this made the deficien- 
cies of the ZX81 keyboard paintully 
evident. 

The second point may have 
related to the hardware problem. A 
great advantage of having the 
FORTH kemel in ROM is that it is not 
destroyed when a program runs 
amok. User extensions, on the other 
hand, are not protected, and it was 
noted that they sometimes vanished, 
perhaps due to imperfect contact 
with the essential RAM extension 
box. Incidentally, another make of 
extension was tried, but that des- 
troyed the display completely, yet 
both extensions worked on another 
ZX8 1. 

A key problem (literally!) was that 


the ZX81 keyboard does not nor- 
mally generate certain characters 
essential to FORTH. There is no @, 
no !, no square brackets, and so on. 
A conversion table is necessary, and 
a keyboard overlay would be usetul 
to remind you to press OR for!, STEP 
for @, and so on. 

These points are made as facts, 
not necessarily as criticisms. The 
rationale of using the ZX81 as a basis 
for conversion is economically 
sound, and the consequences must 
be accepted. Nevertheless, there 
was a feeling that a conversion of a 
slightly more expensive machine 
might have been preferable. 


THE SYSTEM 


Apart from the multi-tasking feature, 
the system departs from the norm ina 
number of significant ways. Instead 
of using a common stack for all data, 
separate numeric and character 
stacks are provided. There is pre- 
sumably a Retum stack as well, but it 
was not defined explicitly. 

Another difference was the use of 
a split-screen arrangement to reserve 
the upper part for editing purposes, 
while the lower half became the 
‘console’ screen. In usual FORTH 
practice there is no need for this, 
because the whole system is 
dedicated to one kind of task at a 
time. If editing is going on, the whole 
screen is dedicated to that task. If a 
program is being compiled, the 
screen only reports errors. If a pro- 
gram is being run, the whole screen 
is at its service. This straightforward 
situation changes when multi-tasking 
is in use. 

A perennial problem with 
FORTH in association with a screen 
of limited size is the way in which 
adequate amounts of source code 
can be handled effectively. ZX81- 
FORTH provides a word SCREEN, 
which allows screen areas of various 
sizes to be set up, each area having 
its own name reference. There is also 
provision for copying a screen from 
one store area to another, and with 
practice this would probably serve 
the essential needs. The STORE 
command will pass the contents of 
the editor screen to tape, and LOAD 
will restore it. This could become 
rather tedious, since a number of 
small recordings will be involved, 
rather than a single overall file. 

Because of these system charac- 
teristics, it is difficult to compare 
7X81-FORTH directly with other ver- 
sions of FORTH. It is said to be 
derived from TREE-FORTH, so it may 
not be completely out on a limb on 
its own(!), but it is certainly unusual in 
a number of ways. 


VOCABULARY 
A comprehensive FORTH kemel in 


780 code, using the normal machine 
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ZX81-FORTH 


ROM and the provision for multi- 
bmp ed bet on po Th ag oa id f nk — Pee 8 sy 
lasking. inese, lrankly, are the two 
principai reasons which justify its 
existence. If it ee have been kept 
nearer to other FORTH standards, 


there might have been more reasons. 


CONCLUSION 


The concept behind ZX81-FORTH is 


good, but the actual implementation 
CC uld be better. For those who wish 
to explo: “FORTH, there is a danger 
al: it will lead them into a dead 


end, with problems of communica- 
tion with other FORTH users. On the 
other hand, those who have a par- 
ticular application in mind, and who 
have the knowledge needed to 
make maximum use of the system, 
may tind that ZX81-FORTH is exactly 


A nat tne wT YN 
L 


VV rick oe, See | eed. 
The ZX81- FORTH ROM is avail- 
able at t£9 8.75 inclusive fron 


David Husband, 2 oh eee cere 
Bre inksome, Poole BH12 INW. 
(Callers by SE apes nt: telephone 
(0202) 764724, 6-7 pm, Mon-Sat). 
Conv: stted miner, price to be 
announced, trom: 

oo Computers Ltd, 329 


As y Road, Parkstone, Poole, BH14 


J 


OAP. (Telephone (0202)'737493) 












superior to any Computer available off-the-shelf 


Magazine available on subscription 
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SHOWROOM: 16 UPLAND RD 
DULWICH, LONDON SE22 
TEL: 01-693-1137 
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MICROTAN 65 NO OTHER COMPUTER IS AS PERSOWALS 


\ . 
FLEXIBLE & EXPANDABLE SYSTEM — 1K to 256K! MICROTAN i WORLD 
Just look at the options: 
DISK CONTROLLER 
REAL TIMEC 
EPROM PROG. CARD 
SOUND BOARD 


For less than £60 you can start buil ding your own Com 
that truly suits your needs and, of course, eventually 


“I 


MASS EPROM STORAGE BOARD 
INDUSTRIAL CONTROLLER BOARD 
40K RAM BOAR 

HIGH RES. GRAPHICS 256x256 
PRINTER FACE BOARD 

ASC11 KEYBOARD 


MICROTAN 65 comes in kit form, complete with manual. ful 
instructions, board with components, (kit form or fully bu 
our full back-up service, and your own Microtan World 


+ 
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FULL RANGE OF SOFTWARE 
Languages available: Machine Code. 
Assembly. Basic, Forth 


BUILD 
AS FAST 
OR SLOW 
AS YOU 
LIKE! 


Structions 


Also available from 

Waltham Forest Computer Centre 
ee Bridge Rd 

Nr yi et Cross. Walthamstow E7 


MICROTANIC COMPUTER SYSTEMS LTD 

AA JRDER 

PP plified ROD. DULWICH 
LONDON SE22 













the indinlieieae te 



























and Pilot 


HOW TO ORDER: 


Enter details in the coupon below. enclosi ng 
your cheque made payable to: Microtanic Com: 
puter Systems Ltd Prices inc! ude VAT add £1.50 
p&p. Please allow v 14 days fo r delivery 


or tO 
MICROTANIC COMPUTER SYSTEMS LTD 
16 UPLAND RD. LONDON SE22 
Tel No. 01-693 1137 
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Please rusn me my Starter kit 
Please tick!) 


| | 
| | 
| gaia Voie | 
a kit form — | will build myself £5 
| O Fully Built £69.95 | 
[) Complet e system wall chart 
| | enclose my cheque/P.O. for £ 
| Name 
Company 
Address 
| 


Tel (Day) 
Tel (Eve) 


| 
a 
| 
| 
| 
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DRAGON 32 


Hardware and Software 


Available Now — Dragon 32 Expansion Unit 


High quality design allows simultaneous connection of disc 
drive and/or up to four cartridges. 


e Gold-plated connectors used throughout. Fully pro- 
grammable cartridge selection. Allows High Speed Data 
Transfers. Easy to use. Instructions included, 


e Price £48.00 + VAT (Please add £2.50 post & packing) 


Coming Soon A/D, D/A board, Eprommer, Graphics 
Board. etc. all fully compatible Dragon 32. 


For Dragon 32 









e Master Chess Software Magazine for Chess 
Enthusiasts. Study and enjoy the games of the masters, 
past and present. Introductory selection with detailed audio 
commentary cassette. 


e Price £8 + VAT (plus £1 post & packing) 


Send large SAE for details of future issues of Masterchess, 
subscription rates and our full range of Dragon 32 hardware 
products. 


Cheques/Postal Orders payable to: Prelectronics Ltd. 
Send to: Prelectronics Ltd., Albro Castle, St. Dogmales, 
Dyfed, Wales. 


COMPUTER ROBOTICS 
TRAINING | 


FULL TIME COLLEGE COURSE 


SUITABLE FOR APPLICANTS WHO WISH TO 
ENTER COMPUTER SERVICE OR RELATED 
INDUSTRIES — HIGH PERCENTAGE OF 
PRACTICAL COURSE WORK 


15 MONTHS 
B TEC Certificate in Computing Technology 


9 MONTHS 
B TEC Higher Certificate in Computing Technology 


Subjects: Foundation Electronics, Digital 
Techniques, Microelectronics, Microprocessors, 
Microcomputer Based Systems, Industrial 
Robotics, Machine Code & High Level Pro- 
gramming. 
Shortened courses can be arranged for applicants 
with previous knowledge. 


Courses commence Jan, April and Sept (Higher 
Cert Sept only). Prospectus from: 


Me) \jele) mam ens. (e), [orm eve) BR Se) aor) fe:7/:) 
20 Penywern Road, 
Earls Court, London SW5 9SU. 
Tel: 01-373 8721 
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ACORN COMPUTERS 





Electron £203 (£209) £229. BBC Model 
B £424 (£388) £408. Kenda double 
density disk interface system for beeb 
£139 (£125) £135. We stock the whole 
range of Cumana disc drives for the 
beeb e.g. 100K single £230 (£220) £240, 
Double 2 x 400K £625 (£560) £580 


PRINTERS 












ORIC AND SINCLAIR COMPUTERS 


Oric 1 computer 48K £143 (£141) £151 
Oric colour printer £134 (£123) £140 
Sinclair Spectrum 48K £131 (£131) 
£143. Spectrum 16K £101 (£105) £117 
32K memory upgrade kit for 16K 
Spectrum (issue 2 only) £31 (£28) £30 
Fuller Master Unit for the spectrum 
including speech unit, sound 
synthesizer, amplifier and joystick port 
£56 (£56) £62. Fuller full sized FDS 
keyboard for the spectrum with proper 
space bar £52 (£52) £62. ZX printer with 
5 free rolls paper £41. ZX printer alone 
£36 (£38) £50. 5 printer rolls £13 (£16) 
£21. ZX81 £37 (£37) £47. Special offer 
pack ZX81 computer - 16K ram pack + 
game tape £49 (£55) £65. ZX81 16K ram 
packs £31 (£28) £30 


























Epson RX80 £326 (£309) £340. Epson 
RX80F/T £346 (£316) £346. Shinwa CT! 
CP80 £293 (£271) £312. FX80 £440 
(£408) £438. Epson MxX100/3 £494 























(£465) £495. Seikosha GP100A £234 
(£219) £254. Oki Microline 80 £223 
(£207) £248. Oki Microline 84 £831. The 
Ultra 21 combined daisy wheel and 
electric typewriter £438 (£415) £445 
The brother EP22 combined matrix 
printer and electric typewriter £173 
(£166) £186. Juki 6100 proportional 
daisy wheel printer £423 (£404) £434 
MCP40 colour printer £134 (£123) 
£140. Star STX80 thermal printer £165 
(£159) £169. We can supply interfaces 
to run all the above from Sharp 
computers £58 (£52) £55 
































COMMODORE COMPUTERS 








Commodore 64 £204 (£184) £204. Vic 
20 £104 (£97) £117. Convertor to allow 
most ordinary mtono cassette 
recorders to be used with the Vic 20 
and Commodore 64:- built £9.78 (£9) 
£11, kit £7.47 (£7) £9. Commodore 
cassette recorder £43 (£44) £50. 1541 
Disc drive £233 (£209) £234. 1525 
Printer £235 (£220) £245. 1526 Printer 
£350 (£330) £360 


SWANLEY ELECTRONICS 


Dept CT, 32 Goldsel Road, Swanley, Kent BR18 8EZ, England. 
TEL: Swanley (0322) 64851 


Nothing extra to pay. All prices are inclusive. UK prices are 
shown first and include post and VAT. The second price in 
brackets is for export customers in Europe and includes 
insured air mail postage. The third price is for export 
customers outside Europe (include Australia etc) and 
includes insured airmail postage. Official orders welcome. 


TEXAS TI994A 
NEW 


Adventure No. 1 
Hangman 
Address Book 
Home Accounts 
Optical Illusions 











VIDEO GENIE, UK101 and 
SUPERBOARD 
















We still support these gorgeous 
machines. Write for our tempting list of 
add ons 
















all at £4.50 each 


including P&P 


Buy any 2 and receive 
Optical Illusions FREE 


LINCO DATA 


30 BROWN CRESCENT, 
SUTTON-IN-ASHFIELD, 
NOTTINGHAM NG14 7GY. 
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Software: Two simple utilities 


M. C. Hart 





TWO PET UTILITIES 


We proudly present a pair of PET utilities. There’s 
a PRINT USING facility for the formatting of 
numerical data, and a program protection routine 
that should fool most of the people most of the 


time. 








ow that PET computers in one 

version or another have been 

with us for some five years and 
a fair volume of material has been 
published about them, I speculated 
upon the type of articles that pro- 
grammers of CBM machines most like 
to read. Having given the matter 
some thought, I suspect that many 
readers will fall into either or both of 
the- following categories: 
@ those who enjoy elegant program- 
ming that makes use of CBM 
specialties, for example ROM 
routines. 
@ those who would like a'‘utility’ to 
complement the existing ROM 
routines, which are now starting to 
look a little threadbare when com- 
pared with what is available on more 
up-to-date machines such as the 
BBC. 

Two routines are presented here, 
each of which has attempted to be 
briet yet practical. The first routine is 
a PRINT USING facility which was an 
amazing omission on machines inten- 
ded for commercial use, while the 
second is a fairly simple way to give 
program protection to cassette based 
software. 


PRINT USING UTILITY 


While ‘quick and dirty’ methods of 
rounding to a specified number of 
digits exist, I was anxious to write a 
routine which was economical, fast 
and performed the following 
functions: 

@ to round both positive and nega- 
tive numbers correctly, avoiding the 
rogue errors that the PET evaluator 
will introduce when processing cer- 
tain numbers by conventional means 
‘such as trying to round 812.676144 
by using the INT(X*1000+0.5)/ 1000 
approach). 

@ to process numbers less than 
+0.01 which would otherwise be 
expressed in exponential format. 

@ to putin leading zeroes for values 
between +1 and —1. 

@ to add a fractional part of trailing 
zeroes to ensure consistency with 
other output: for example, 2.3 
becomes 2.300 to three decimal 
places. 

The routine presented here does 
all of these things and has attempted 
to optimise on a combination of 
speed and compactness. Timed on a 


BASIC IV (12”screen) machine, each 
subroutine call takes some 0.075 
seconds, some 13 numbers to the 
second, and | believe that it com- 
pares very favourably with the 
machine code routine in the 
COMMAND-O chip which takes on 
average 0.047 second. (The latter, 
incidentally, will not attempt to pro- 
cess numbers in exponential format 
fully and for certain numbers is 
actually inaccurate, so 0.001 to three 
decimal places is processed as 
—Q3.000! Commercial or scientific 
users of the PRINT USING routine on 
the COMMAND-O chip be wamed — 
you may be better off with my 
routine.) 

Here are a few words of explana- 
tion for those who are interested in 
the construction process. Line 10 
initialises variables as near to the 
start of the program as possible. As 
each of these variables is going to be 
used constantly in the formatting sub- 








PRINTCHRS(147)TAB( 12) 


PRINT" PRINT USING DEMO": PRINTTAB( 13) 
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12 
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20 REM Z = ORIGINAL NUMBER 

21 REM ZS = OUTPUT STRING 

22 REM ZR = ROUNDING FACTOR 

23 REM ZH = HALF-ADJUST(0.5) 

24 REM ZD = NO OF DECIMAL PLACES 
25 REM ZF = FIELD LENGTH 


26 REM ZZS= ZEROES FOR ‘PADDING’ 
27 REM ZFS= BLANKS FOR ’ PADDING’ 
28 REM Z()= TABLE OF ROUNDING NUMBERS 


30 
110 PRINTZ;SPC(15-LEN(STRS(Z))); 
140 NEXT J:END 


150 ; 
160 : 


60030 : 
60040 : 


Listing 1. The PRINT USING 
program. 





PRINTCHRS(147)CHRS$(18)"ORIGINAL VALUE 


PET UTILITY PROGRAMS 


Se 


ORIGINAL VALUE FORMATTED VALUE 


44.7437833 44.7438 44.74 
1. 45608437 1.4561 1.46 
1256.02015 1256.0201 1256.02 | 
-2927.99181 -2927.9918  -2927.99 | 
417.395913 417.3959 417.40 | 
4.98288499 4.9829 4.98 
5 -00350826E-03 0.0050 0.01 | 
- 273648306 -0.2736 “eZ? | 
7.5962991 7.5963 7.60 | 
i4.9696188 14.0696 14.07 
760.401918 760.4019 760.40 
-.4781 10656 -0.4781 -0.48 
| =.0940358311 0.0940 0.09 
- 0316467338 0.0316 0.03 
»0416842159 0.0417 0.04 | 
| 


Listing 2. Asample printout using 
PRINT USING (!). 


routine, access time needs to be fast 
to aid speed of execution. This is 
ensured by defining them in the vari- 
able list before other program var- 
ables are used. The interpreter 
therefore does not have to search far 
to find the subroutine variable names. 
Notice also that variable names 
rather than raw numbers are utilised 
— this means that some of the con- 
version time spent in converting num- 
bers to the format in which they are 
stored internally is saved. 

Line 11 constructs a small look-up 
table (not dimensioned unless you 
intend more than 10 places of 
decimals!) which contains the powers 
of 10 at each point (ie. 1,10,100 etc). 
The reason for this is that exponentia- 


FORMATTED VALUE" 


10 ZR=0:21=0:2$=""": ZH=.5:ZD=0:Z=0:ZF=11:ZZ$="000000":ZFS=" 
11 2(0)=1:FORJ=1T010:Z2(J)=Z(J-1)*10:NEXT:REM TABLE OF ROUNDING NUMBERS 


100 FORJ=1T015:Z=EXP(RND(1)*14-6) : IFINT(J/4)-J/4=OTHENZ=-Z 


120 ZD=4:GOSUB60000:REM NO CARRIAGE RETURN 
130 ZD=2:GOSUB60000:PRINT:REM NEW LINE 


60000 ZR=Z(ZD) :Z1=INT(ABS(Z)*ZR+ZH) /ZR: IFZD=OTHENZ$=STRS(Z1) :GOT060020 
60010 Z$=STRS$(INT(Z1) )+"."+RIGHTS$(ZZ$+MID$(STRS( INT((Z1-INT(Z1))*ZR+ZH) ), 2), ZD) 
60020 PRINTRIGHTS( ZF$+LEFT$(STRS$(Z<0) ,1)+MID$(Z$,2),ZF); : RETURN 
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Software: Two simple utilities 


tion is expensive of processor time 
the look-up table saves some 40%5 ot 
the processing time when compared 
with the traditional method of 
exponentiation in arriving at round- 
ing numbers. Because of the way in 
which numbers are stored internally, 
exponentiation may introduce ther 
small errors as well. 

Lines 20-28 document the func- 
tion of the variables in the routine - 
all of these are preceded by Z so 
the user can reserve these 
for the use of the subroutine to avoid 
the risk of corruption. Lines 100-1] 40 
are asmall'dnver routine to aenerate 
random numbers and process them. 
Notice that all one has to do is to 
specify the number of decimal! places 
and then call the subroutine but 1! 
used in a conventional program one 
would have to copy the number to be 
processed into the variable Z betore 
the call. The number to be processed 
is printed in the last line of the sub 
routine (again to save time) and has 
a delimiter to keep output on the 
same line for further processina. If you 
intend your next call to the sub- 
routine to be on a new line then in the 
driver program remember to force a 
new line after the last subroutine call. 

If speed is the absolute essence 
then itis possible to speed up the 
program even further. If you know that 
you are not going to process any 
integers then you can cut out the con- 
dition at line 60000 altogether (IF ZD 
=(0...) and this might save some 
precious microseconds. To process 
negative numbers in a slightly faster 
way then one can introduce a new 
line as follows: 


thryt 


exclusively 


66015 IFZ<@ THEN Z2$ = "-" + 
MID$ (ZS$,2) 


and cut out the complex (ingenious?) 
way of processing the negative sign 
in the last line. This is the middle term 
of the concatenated stnna, ie 
LEFT$(STR$(Z<0), ‘Z make this 

latter term merely Z$, so that the last 
line reads: 


60020 PRINT RIGHTS (ZFS$+Z$,ZF);: 
RETURN 


Attempts to go much faster in BASIC 
may well be thwarted by the speed of 
one’s printer rather than anything else 
and the virtues of the three- line ver 
sion are that it is quite easy to type in 
if APPEND facilitates are not readily 
to hand. 

Finally, you might like to have an 
indication of the output string being 
too long for the specified field length. 
This is actually very easy to proaram 
in a new line: 


60015 IF LEN(Z$)<ZF THEN PRINT 
LEFTS ("kee eeRRRRHHREER" TF) |: 


RETURN 
and in this case your number would 
not be printed but the whole field 
would be filled by a symbol. Yet 
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another approach is to ‘tag’ a symbol! 
such as a % sign to the offending 
tring and print that out instead. 


PROGRAM 
PROTECTION 


No program can ever be completely 
protected but | offer below a machine 
sode subroutine which offers a 
measure of protection to cassette- 
based software. Its deterent effect is 
probably not very great for those 
whose knowledae of the internal 
routines of the PET is of a moderate 
standard, butI am sure that it will 
serve its purpose by providing a fair 
degree of protection. 

In any protection program one 
wishes that the program will run nor- 
mally, but that it cannot be LISTed and 
particularly that it cannot be SAVEd. 
This is achieved in the program 
offered here in the following way: 
when the program is RUN the first 
statement is a SYS call which alters 
the pointers to the start of BASIC, dis- 
bles the stop-key (but in a way 
which does not disable the clock so 
that is still accessible for timing pur- 
poses), alters the CHRGET routines 
so that direct commands (except 
RUN) are ‘rewarded’ by resetting the 
machine, and finally sets a flag to 
show that the program is correctly 
entered. A further check routine is 
written which can be accessed 
nenodically to ensure that the pro- 
gram is entered by the conventional 
route and any would-be ‘burglar’ will 
be rewarded by a machine reset 
which clears the contents of most of 
the RAM, including the main 
program. 

Assuming the program you wish to 
protect is already resident in memory, 
try to ensure that the program cannot 
be ‘crashed’ in any evident way, eg 
by preventing division by zero or null 
INPUTs. Then make the first line: 
1SYS1948"*** . . exactly 70 

asterisks 
leaving no spaces between | and 
SYS or SYS and 1048 and then typ- 
ing a single set of quote marks. The 
space provided by the asterisks is 
going to be filled by machine code 
eventually. Then periodically 
throughout the program use the 
following program line (it need only 
be typed once and then duplicated 
when necessary by giving new line 
numbers): 


¥X SYS655:REM"" (carriage return) 


Now place the cursor over the second 
of the quote marks and use the 
INSERT cursor to open up a gap of 
15-16 spaces or more then iill 
these spaces up to the last quote 
mark with DELETE signs (reverse T in 
appearance) and cursor right over 
the final quote mark when you come 
to it, Finaliv type shifted left square 


bracket for BASIC IV (FA symbol), or 


same 


shifted L for BASIC II ( symbol) — 
these symbols prevent listing while 
the preceding delete signs make the 
line practically invisible (except for 
the final quote mark which remains). 
This operation sounds tricky but is 
actually very easy once you have 
performed it a few times. Having got 
one line correctly entered then dupli- 
cate a few more so that they are scat- 
tered throughout the program. 

To enter the machine code, follow 
this procedure. Type SYS4 to break to 
the monitor and then M 040B 0451 
checking that byte 0451 is a O. If not, 
then you have probably made a mis- 
take with the asterisks, so exit from 
the monitor and adjust until you get it 
right. Then type in the nine lines of 
machine code (70 bytes) from Listing 
3a, not forgetting to press Return at 
the end of each line. Similarly, while 
still in the monitor enter the lines of 


: O40B 
:0413 
:041B 
20423 
2: 042B 
«20433 
2: 043B 
2: 0443 
~: O44B 


Listing 3. (a) First machine code 
data for BASIC IV machines. (b) 
Second machine code data for 
BASIC IV. (c) and (d) are the cor- 
responding data for BASIC II 
machines. 
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code in Listing 3b by typing M 028F 
Q2A7/, thus putting this piece of code 
into the part of RAM which is actually 
part of the first cassette buffer. 

Having put the machine code into 
the program that we wish to protect, 
we are now ready to SAVE it — but in 
a rather novel way and with one or 
two ‘twists’ to deter predators! We 
obviously wish to preserve the code 
that we have put into the first cassette 
butter. However, if you have any 
knowledge of the PET operating sys- 
tem, you may know that every 
address in the first cassette buffer 
from O28F to 0339 has a $20 written 
into it after a ‘normal’ SAVE. We are 
going to exploit this knowledge 
because there is a way of saving the 
first cassette buffer, but most people 
do not know it and when they attempt 
to SAVE a program they will overwrite 
the machine code routine without 
which the program will crash! 

This is how we SAVE the first 
cassette buffer routine. First of all, 
make up a name for your program 
and allocate it to a variable such as 
A$. It is very important that your 
name is 16 characters long and that 
your final character is a shifted 
space. You can check that your 
character is correct by typing PRINT 
ASC(MID$(A$,16)) and you should 
receive the answer 160. If you do not 
then retrace your steps at this point. 


To save the machine code, we 
pop it into another variable such as 
B$ with the following direct mode 
commana: 


BS="":; FOR J=@ TO 24: BS=BS + 
CHRS (PEEK (655+J)): NEXT 


Finally concatenate the two with A$ 
= A$ + B$ and then SAVE A$ (that's 
all!). You will see some weird effects 
on your VDU as machine code is 
interpreted as graphics symbols and 
some of the name may appear to be 
corrupted — but fear not, it will not 
reappear when reloaded and to all 
intents and purposes will appear as a 
‘normal’ program. 

Now when the program is loaded 
back again the name appears as nor- 
mal but a LIST attempt will fail 
(actually the first line will be listed but 
it will be instantly deleted and you 
should be able to observe a momen- 
tary flash but not sufficient for you to 
read). A RUN command will now run 
the program quite satisfactorily and 
you can repeat this with a similar 
RUN, but the machine code ensures 
that LIST in direct mode will reset the 
machine once the program has suc- 
cessfully RUN. If you want to save a 
back-up copy of the protected pro- 
gram, you must do it after the pro- 
gram is LOADed but before it has 
been RUN. For back-up purposes in 
which you preserve the same pro- 


PET UTILITY PROGRAMS 


a 


gram name then all you need to do is 
the following: 


AS=""; FOR J=6 TO 48: AS=AS$ + 
CHRS$ (PEEK (639+J)): NEXT 


followed, of course, by SAVE A$. 

By now, you may be able to 
appreciate how the several parts of 
the machine code works. Once the 
program has been RUN then a LIST 
command will reset the machine. 
Before the program has been RUN 
then the program cannot be listed 
because the first line is made invis- 
ible and the three zero bytes are 
inserted to ‘fool’ the PET into thinking 
that the program is at an end. If an 
intrepid hacker breaks into the pro- 
gram then the ‘invisible’ SYS calls will 
stop the listing with a SYNTAX 
ERROR and the SYS calls themselves 
will ‘reset’ the machine if they detect 
that the program name does not con- 
tain the invisible shifted space 
character. A call into the first 
machine buffer with no machine 
code in it will crash the machine, so 
preventing a successful RUN. Even 
so, these protection devices which 
might appear to be complex only rely 
upon a certain degree of ignorance 
and no doubt can be circumvented 
by those in the know. It might be an 
interesting exercise to protect a pro- 
gram and then offer it to friends to see 
if they are able to ‘crack’ it. 
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8 Bellingham Close, Bury, Lancs BL8 2TU. Tel: 061-764 5579 





COMPUTING TODAY FEBRUARY 1984 





61 


Opinion: Readers letters 


PRINTOUT 








PRINTOUT 





I was attracted to the August 
edition of Computing Today for its 
article ‘Problem Page’ for the 
Spectrum, but I am quite 
disappointed regarding the section 
on Prime Numbers. 

In wht I believe is correctly 
called the ‘the sieve of 
Eratosthenes’ the method is to cast 
out multiples of primes a the 
theory states that all non-primes 
are multiples of primes; it is also 
described as the ‘uniqueness of 
factorisation theory’. 

Although Don Thomasson 
refers to this method he does not 
use it in his program, falling back 
upon the INTeger test for prims; 
an adequate but slow process. 

I enclose a listing that correctly 
uses the (three times) faster 
method. It also includes '2’ in the 
result as this is a prime also. 

Lines 90 and 100 set up an 
array to extract all the prime 
numbers below the value x’. Line 
110 sets loop ‘i’ for 2 TO SQR x. 
Line 120 converts the array to ‘I’ 
for all multiples of ‘i’ including 
those controlling the first loop. 

The result is that the first run 
through converts 4,68 10 
12 14,16,18, etc; the next 
additionally casts out 9,15,21,27, 
etc; then 25,75 etc; followed by 
49 77 etc as 2,3,5,7 are 
successively used as values for 1’. 

It only remains to examine the 
array and print out the elements 
that are still set to ‘O 

I trust you find this helpful. 
Yours faithfully, 

John A. Mason, Frome. 





WTR STE 


The program for the Dragon 32 
in your September issue to 
generate characters is an excellent 
program. I was able to type it in 
my TRS-80 Color Computer and 
get it to work straight away. I have 
been using it since to generate 
characters for use with other 
programs. 

I did find one small error in the 
program. Line 435 which is used to 
generate the @ character in the 
graphics mode is incorrect (at least 
I couldn't get it to work properly). 
I corrected the line as follows: 


435 R$(64)= ''BM+ 6 0;L4H2U2E2 
R2F2D1GIL2ZH1EIRID2" 


This information may be of use 
to your other readers. 
Yours faithfully, 
Charles S. Nichols, 
Teddington. 





Could you please bring to the 
attention of your readers that as a 
result of the increasing number of 
followers of that super adventure 
program on the Oric-1 called 
‘Hells Temple’ from Kenema 
Associates, that we are forming a 
fan club. The object of the club is 
to spread our gospel amongst 
other Hells Temple players, to 
meet, correspond and generally 
mix it with others who have dared 
to enter the Temple and got the 
bug! 

I'm sure we would all 
appreciate your kind assistance. 

By the way, our club has been 
officially approved by Kenema 
Associates Limited. 

Yours faithfully, 
Dopple-Ganger. 


(*Hmmm... Well, I suppose it takes 


ete a) 


10 REM KEKKKKEKEKEEKKKKKEKKKKKKKKKKKEKEE 


28 REM * PRIME NUMBERS * 
30 REM * Sieve of Eratosthenes * 
48 REM * J A Mason * 
50 REM KKK KKEKKKKKKKKKKKKKKKKKEKREK 


190 INPUT “Number below which prim 
es to be extracted ";x 
118 DIM n(x): LET p=9 
126 FOR i=2 TO SQR x: 
THEN GO TO 148 

130 FOR j=i*i TO x STEP i¢ LET nt 
)=l: NEXT j 

140 NEXT i 

150 FOR i=2 TO x: IF n(i)=@ THEN P 
RINT TAB p;i;: LET p=pt8 

160 NEXT i 


TP nia) <a 8 
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EN MRL 


PRINTERS 


For Sharp 
MZ-700 
Computer 








EPSON Dot Matrix 
RX80 Tractor (100 cps)... £248 (£285.20 inc VAT) 
FX 80 F & T (160 cps) £370 (£425.50 ic VAT) 


Plus Star & Juki Printers available from £235 
(£270.25 inc VAT) Paper, Ribbons & Refills etc 


RING 0506 31605 for details 


MRL & 


Printer Interfaces 








Available to fit most micros: 
Electron, Spectrum, Atari, Commodore 64 incl FREE 
ALL AT £39.95 (inc VAT) 


RING 0506 31605 for details e i = = 
‘fl f), i, “F 
(fr 


, 


selection of Disc Drives at bargain prices from £135 
(inc VAT) to fit BBC, Tandy, Nascom etc. 


MICRO RESEARCH LIMITED (Freepost) 


Industrial Unit 6, Knightsridge East, 
Livingstone EH54 8RA, West Lothian. 


95B Blackpole Trading Estate West, Worcester 
Tel: (0905) 58351 
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b . ee a tell you erery tne | EXPRESS DELIVERY - ei tape. | enclose a cheque/postal order for i 

. about the games on 

_ CASSETTE - 50 but they include ORDER NOW l¢ laa rota 

* many types such as maze, arcade, i r ee ene Stas ae o>! 
missile, tactical and logic games, Nils Please debit | | | a, | 
to suit most tastes in 5 sakbaicatiaa 4 a my &F No. tf 
game playing. zs Address a 
CASSETTE - 50 will appeal to 4 SPECTRUM ORIC-1 ZX 81 VIC 20 j 
people of all ages and the games PBC AB DRAGON ATARI APPLE VY] 

. will provide many hours of ‘ ; : : 

“ entertainment for all the family at Post Code a8 Cascade Games Ltd.. 
a fraction of the — of other Suite 4, 1-3 Haywra Crescent, Harrogate, 
computer alia be eee or i Country ane cascade North Yorkshire, HG1 5BG. England. 1 
eae eae Dealers & Stockists enquiries welcome. *™"* Telephone: (0423) 504526. By ae 
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Software: An OLD command 





Tony Cross and Phil Cornes 





PROGRAM RECOVERY 


ON THE 
COMMODO 


Are you sitting comfortably? Then we'll begin. Like 


all good bedtime stories, t 


RE 64 


his has a nasty 


beginning and a happy ending. 











y A, 


—“iisbhiten na 
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ast Sys 


Ae hie, 
f ; 
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 Wiifflld td 
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nce upon a time there were 

two programmers called TC 

and PC. One day they were 
happily programming their Com- 
modore 64. When they had finished 
typing in a rather long program PC, 
who was always been a bit hasty, 
said “Go on, TC, type RUN and let's 
see if it works!” So TC typed RUN. 
After a few seconds the screen sud- 
denly went blank and the keyboard 
stopped working. “Oh no!”, cried TC, 
“It's hung on us! The only way out is 
to turn the power off’. PC looked 
worried. “If we do that’, he said, “we 
will lose the program we have just 
typed in!”. “Oh dear’, they moaned, 
“Oh dear’... 

o on — be honest — how many 
times has this happened to you? It's 
surprisingly easy to do on the Com- 
modore 64 because so many of the 
sound and graphics facilities have to 
be POKEd in. On wrong number in 
a POKE statement could lead to just 
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this sort of problem. One some 
machines you can recover from this 
problem by pressing a reset key 
which resets the CPU and then 
jumps into the monitor or warmstarts 
the BASIC. The Commodore 64 
doesn't have a reset key — the only 
way to regain control of it once it has 
‘hung’ is to turn the power off! (Press- 
ing RUN/STOP and RESTORE 
doesn't always work). 

To overcome this problem we 
decided to design a more elegant 
way of regaining control of a ‘hung’ 
Commodore 64 without losing the 
stored program. 


A REAL RESET 
Examination of the MOS 6510 chip 


reveals that it can be hardware reset 
by bringing the RESET pin low 
(earth). (The RESET is pin 40 of the 
chip). When the RESET pin goes 
high again (+5V) the 6510 loads its 


program counter with the contents of 


memory locations $FFFC and $FFFD. 
In other words, earthing the RESET 
pin will stop the CPU trom doing 
whatever it is currently doing and will 
cause it to jump to the address con- 
tained in memory locations $FFFC 
and $FFFD. 

The obvious thing to do is to load 
memory locations $FFFC and $FFFD 
with a vector which points to BASIC’s 
warm start. Earthing the RESET pin 
will then stop the CPU and warmstart 
BASIC. Unfortunately, the KERNAL 
ROM overlays these locations, 
making it impossible to.change 
them. The jump vector which the 
KERNAL maintains in $FFFC and 
$FFFD points to the normal ‘cold 
start’ routine. This is the routine used 
on power-on which resets all the 
BASIC pointers and does a RAM test 
before coldstarting BASIC. Earthing 
the RESET pin, then, regains control 
of the machine but ‘loses’ the current 
program. 


BRING BACK BASIC 


Actually things aren't as bad as they 
seem, because the program is still 
stored in memory, it's just that BASIC 
can no longer see it. What has 
happened is that the pointers,-which 
tell BASIC where the program starts 
and ends, have been reset to 
indicate that there is no program in 
memory. (Fortunately the RAM test 
which has been performed is non- 
destructive which means that it hasn't 
damaged the program!). If we can 
find a way of restoring BASIC’s 
pointers we can recover the program 
as well. 

To understand how we can 
recover the program we need to look 
at the way BASIC programs are 
stored. On the Commodore 64 
BASIC programs usually start at 
$0801 and can extend up to $9FFF. 
(Both these addresses can be moved 
but they rarely are). In addition, any 
variables and arrays are stored after 
the end of the program extending 
upwards, and strings are stored from 
$OFFF extending downwards. 
Naturally there are no variables, 
arrays or strings created until a pro- 
gram is RUN. Figure ] shows the 
general storage of BASIC programs. 

BASIC maintains pointers to 
several places, the four which 
interest us here are: 

@ The start of BASIC text. This poin- 
ter is called TXTTAB and it is at 
address $2B and $2C. 

@ The start of variable space. This 
pointer is called VARTAB and it is at 
address $2D and $2E. 

@ The start of array space. This 
pointer is called ARYTAB and it is at 
address $2F and $30. 

@ The end of array space. This 
pointer is called STREND and it is at 
address $31] and $32. 
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STRING 
VARIABLES 


ARRAYS 


NUMERIC 
VARIABLES 


PROGRAM 
TEXT 


STRINGS GROW 
DOWNWARDS 










STREND ———> NUMERIC 


VARIABLES 


ARRAYS AND 
GROW UPWARDS 


ARYIAS = 










VARTAB ———> 









| TXTTAB ———> $0801 
{ 





os 


Fig. 1 The general storage method 
for BASIC programs on the 
Commodore 64. | 


Figure | also shows where these 
pointers refer to. Unless BASIC has 
been moved, TXTTAB will contain 
$0801, which is the normal start 
address of the BASIC text area. Fora 
program which has never been RUN, 
VARTAB, ARYTAB and STREND will 
all point to the same place — ie the 
end of the program text. 

When the power-on routine is 
executed, TXTTAB is set to $0801 
and VARTAB, ARYTAB and STREND 





4 FOR X=@ TO 83 
YH READ Q: 
34 NEXT X 
SA bP 
SA DATA 164%, 
SQ DATA 144, 4, 
7 DATA 

DATA ° 
94 DATA 1@i, 254, 
DAT Ee 
DATA 2, 24, 101, 253, 133 
120 DATA 13: 
134 DATA 13 
144 DATA 


L5@ DATA 


25, 35, 176, 208 


a os 
3.3, “FD, 


235, 178, 260, 177, 253, 


7&, 248, 200, 152, 


LSS, 


pw, 





TXTTAB POINTS 
E 
(USUALLY $0800) 
LINE NUMBER 
| 


Ist LINE ei ee PROGRAM TEXT (IN ASCII) 00 
+S 


THIS POINTER 
POINTS TO HERE 


LINE NUMBER 
omen, 


2nd LINE ee PROGRAM TEXT (IN ASCII) <— 
Se 


THIS POINTER 
POINT TO HERE 





LINE NUMBER 
(atin, 


seme [TTT 4 
H+’ 


THIS POINTER 
POINTS TO HERE 


/ 
i 


VARTAB, ARYTAB AND STREND 
POINT HERE 


are all set to $0803 — ie no program 
in memory. What we have to do, 
then, is to find the end of the program 
and set VARTAB, ARYTAB and 
STREND to point to it. 

Finding the end of the program is 
fairly easy because BASIC is stored 
as a linked list. This means that each 
line of a program contains a pointer 
to the next line. The last line in a pro- 
gram has two nulls ($00) in the poin- 
ter locations. Figure 2 shows how 
BASIC lines are stored in a short 
three-line program. 

When the power-on routine is 
executed the first two pointer bytes 
are set to nulls — ie no program 
stored. 


L464, @ 


45, 253, 206, 149, @ 
145, 253, 160, @, 177, 253 


2083, 27, 206, 177, 253, 208, 22, 169 


az 


3,49, 169, 8, 141, 254, 133, 46 


5, 43, 153, 5G, 94, 160, @, 177 


es Ay : LTa4 


Listing 1. The BASIC program to POKE the machine 
code into memory. It is completely relocatable. 
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PROGRAM TEXT (IN ASCII) 


Fig. 2 How BASIC lines are stored in a three-line program. 


PROGRAM RECOVERY 














THERE IS ALWAYS A NULL BYTE (00) 
AT THE END OF EACH LINE 








To find the end of the program, 
we first have to find the address of 
the start of the second line (by scan- 
ning for the null at the end of the first 
line) and set $0801 and $0802 to 
point to it. ($0801 and $0802 are the 
line pointer locations for the first line). 
We can then simply run down the 
pointers looking for the two nulls at 
the end of the program. The address 
of the byte immediately following 
them is the address which must be 
poked into VARTAB, ARYTAB and 
STREND. 


MAKING THE MODS 


We now have enough information to 
enable us to implement the reset 
facility. Our first task is to wire up the 
reset key itself. The key can be of any 
type you like, although a sub- 
miniature ‘push-to-make’ type is 
probably the most suitable. It must 
be connected to the Commodore 64 
so that when operated it connects an 
earth to the RESET track. 

There are two ways of doing this: 
the first is to actually mount the 





SER PORT 
EDGE CONNECTOR 





PIN 4 PIN3 PIN 2 








SOLDER RESET 
SWITCH TO HERE 





Fig. 3 Solder point locations for 
fitting a reset switch. 
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SOLD routine for 


A, LL. Cross 


;CopuFiant <4 ¢.2 


Hox $CHUMA :Set 


;Variables and equates 


TRAT SURE. SRBAS IC 
Yak TAks $21) ;RASIC 
AR Y Teak as $x? F ; BASIC 
STREND = $31 »RASTIC 
LINE TR $k DD 


(First initialise LINFTR to 


raf the BASIC program, 


switch in the case at some con- 
venient point and then wire it in to 
earth and RESET. The most con- 
venient place to pick up these 
signals is on the User port. If you 
take the top off the computer you will 
see that there are two convenient 
soldering points just behind pins | 
and 3 of the User port. Pin | is the 
earth and pin 3 is the RESET lead. 
Figure 3 shows the location of these 
solder points. Be warned, however, 


PIN 40 (RESET) 


MOS6510 
CHIP 


Listing 2. The assembly listing of the OLD program. 


the Commodore &¢ 


Pout ye 


Variables 
arrays Start 
strings end 


;Poainter 


pant 











;Now restore 

,;the pragram, 

ot art DY 
Le 

[INI TLR CMP 
a Oa 


Liy 


prog start Sh C 


tart BS 


FNDEND [NY 


ryéy 


to the estar STA 


that this will almost certainly 
invalidate any guarantee on the 
machine. 

The second method of connect- 
ing the reset key, which may not 
invalidate the guarantee is to wire 
the switch to pins 2 and 6 of a DIN 
plug. The plug and switch can then 
simply be plugged into the Serial 
port. (The earth and RESET leads 
appear on pins 2 and 6 of the Serial 
port). Figure 4 shows a simple 


METHOD 1 USING 
PERMANENT 


WIRING USER PORT 


EDGE CONNECTOR 


SERIAL PORT 
DIN SOCKET & PLUG 





METHOD 2 
USING DIN PLUG 
AND SWITCH 


Fig. 4 The two methods of wiring the switch 


the 


et ath T 


) Copy prag 


tH TEX I address toa LINFTE. 


LINP TRE! 


pointer on the first Line of 
CTt must point to the second Line), 

GA slnitialase index, 

SA ;Search character. 


CLINFTR EY 3 


NDE ND ‘Sean for end of 


‘first BASIC line. 
s¢{Look for null 3. 
Pw E Pte 
tep over mutd, 
EME ‘Initialise index, 


;Calculate poantey 


LMF TR Value, 


CLINFTR), ¥Y ;FPut Jow byte back. 


PAE 


diagram of these two methods. 

Now on to the software. This must, 
of course, have been loaded before 
the reset key is used (it's too late after 
you ve pressed it!). We have presen- 
ted the routine, which we have 
called OLD, in two forms. Listing | is 
a BASIC program which will POKE 
the routine in, and Listing 2 is a6510 
assembly listing of the same routine 
with comments so that you can see 
how it works. 

The routine is only 84 bytes long 
and it can be relocated anywhere 
you like. (Locations below $0300 are 
overwritten during the power on 
routine). The routine is called by a 
SYS 49152 command in our version 
and it only takes a few milliseconds 
to run. 


CONCLUSION 


The Commodore 64 now has a very 
useful reset key which will always 
reset the processor from any state. In 
addition the OLD routine will recover 
the current program, provided that 
the bug which caused the processor 
to ‘hang’ has not overwritten any 
important memory locations. 

Incidentally, the normal BASIC 
NEW command works by simply 
resetting BASIC’s pointers, so if you 
accidentally type NEW, a call to our 
OLD routine will restore the program 
for you! (Now you know why the 
routine is called OLD!). 
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COMPUTING TODAY FEBRUARY 1984 





COMP 





LN VR FAdd an hy Carry 


Pwo Wiis. 


SPEED UP ANY BASIC PROGRAM 
WITH OUR COMPILERS 


Up to 40 times speed increase, reduced program size. 


BASIC COMPILERS 


Petspeed Compiler for 4000/8000 series ___ £125.00 
Integer Basic Compiler for 3000/4000/8000 series £75.00 


CROSS-COMPILERS FOR BASIC 


Portspeed: Compiles source on 8000 series to run 
on CBM 64 

X-64: Integer compiler compiling on 8000 series 
giving machine code executable on CBM 64 


£125.00 


£125.00 


B-Port: Compiles source on 8000 series to run on 
700/B-128 series 


X-700: Integer compiler compiling on 8000 series 
giving machine code executable on 700/B-128 


£450.00 


£450.00 


UTING TODAY FEBRUARY 1984 


PROGRAM RECOVERY 


Ah ve Tbe 


STA STE ND 
| ik ea PAeclel oan my Carry, 
ADL LINE The + 

Wate TAR + I 


oy EAS Ore Y Take | 


Se STE ND I 


GIVE YOUR VIC OR 64 FULL IEEE 
AND RS232 , 


\ Co) ae: Motu aacele(-ma elenley-isle) Mu visem- lime) san lam 


i 


Interpod: Free-standing interface giving IEEE488 


and RS232C capabilities to CBM64/VIC20 £99.95 


SPECIAL OFFER 


Order 5 or more Interpod and get a free Portspeed! 


All prices are exclusive of VAT. There is also a small charge for 
post and packing. Dealer discounts are available on all products 
except the 700 cross-compilers. 


Compilers are supplied ex-stock; Interpod supplied 7-days 
eX-StOCK. 


COMMODORE SOFTWARE 


Native compilers for the CBM 64 and the 700/B-128 are 
available only from Commodore. 


Oxford Computer Systems (Software) Ltd. 
Hensington Road, Woodstock, Oxford OX7 1JR, England 
Telephone (0993) 812700 Telex 83147 Ref. OCSL 


VISA ACCEPTED 
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SHARP 





MICRODEALE 
























SHARP MZ-80A 
MEMORY 48K RAM 4K ROM 
LANGUAGE Microsott BASIC 

i t 


CASSETTE 1200 b aud Ul in 

DISC extre DOS 

KEYBOARD QWERT! vW/ CURSOR BY NUMERIC FUNCT 
DISPLAY TVO MONITORS/SUPPLIEDW 
INTERFACE PARAW SER IALO BUSW 

GRAPHICS BLOCKW U JSERC 


LINEC 
SOUND wie. 


TL, 11 : "ay Ory i : TOV Eee ya ] a i? 7a a ices , i 
Notes: ne Sharc V1 4" OU x ) DaSe 19g! I AN exXpalhsiol! pesat 
har marimnaralc are availaniac ( )tneyr 


printer, floppy disc unit ana other peripherals are avaliable. Utne! 
H 


ian 





guages ca 





(awe s ry + 
am responma 





. at > 
+. LA; > > - Ur ,cCf* SNYY y rr YY) - ‘r 
flape. W1tIN the HODPYy Q1lse OVUOl Lie Na 
















level software such as Disc BA co and FDOS (including BASI 
ompiler). A small 1 range of business and educatio! =" sottware is 
available. The supp! : Sharp Siectiontcs (UK) Ltd, 0 Road 
O! M. inchester M10 OBE 









MEMORY 64K RA 
LANGUAGE) BASIC 
CASSETTE 1800 | 






KEYBOARD QWERTYW CURSOR S/ NUMERIC a FUNCT 
DISPLAY ¥ fi MONITORNSU PPLIED or 
INTERFACE PARA SERIAL BUSY 


GRAPHICS 


SOUND 


Notes: The Sharp MZ-80B is a Z80A based micro Various othe 


yvaded as the machine is soft , no janc » be 





languages Bis Ug! be lc 

ing fitte od | eras Expansion unit, the MZ-80P5 printer ind the ms AZ. 
foi FB D flo 1 1SC ra are ee availak e. The Su s Sharp 
Slacesnine (UK) Lid, T > Road, Newton H th) M- ue 














BERRSIIRE MIDLANDS 


Kuma Compute 


mee “ed 


Fully support with software and 
hardware. Sharp 700, Sharp 
MZ80A, and MZ80B. 

11 York Road, Maidenhead, 

Berks. Phone for details 
0628 71778 













COMPUTER 100 

181 Oxford House, Reading, 
Berks RG1 7UZ 

TEL: 0734 591616 


One of the UKs largest stockists 


CAMBRIDGESHIRE 


MS CONSULTANTS 
(CAMBRIDGE) LTD 
152 High Street, Huntingdon, 
PE18 6TF. Tel: 0480 51721 
Specialists in Sharp 
Hardware & Software 





LANCASHIRE 


12-14 Avenham St. 
= Preston (0772) 51686 
Sharp MZ-3541 Based Software, Bake 
ouse Orders System, Barstock 
SALES - —_ _ SERVICE 
SOFTWARE 


BAR INSTRUMENT CO. LTD. 
For Sharp computers books, software 
Urmston Computer Centre, 
124 Flixton Road, Urmston, 
Manchester. 

Tel: 061 - 747 4626 





MICRO APPLICATION PACKAGES 
LTD. Wild Oaks Drive, Thornton, 
es ia Aik 5BR. Tel: 0253 866464 
pe ; Business Procrams for t 
7 3500 Mach ne ES ti mating 
C Stoc ,ontrol Also 
sraphics ‘Dr au ughti 1C Ps ackage 


Suitable CAD /C AM use 


SHARP CENTRE 


16 Melville Street, Lincoln. 
Tel: Lincoln 32379 
All Sharp Microcomputers. Specialists 
in Industrial Process Control Systems. 
Customers include British Telecom, 
M.O.D CRA & CTA Members 


ition LTD. 


ine onarp 


re contact the 
Specialists 
Sharpsoft Ltd, Crisallen House, 
86-90 Paul Street, London EC2. 
Tel: 01 - 729 5588. 





MICROS FOR MANAGERS 
149 Gloucester Rd., London SW7 4TH 


Pocket Computer Software Specialists. 
APD air conditioning/heating/ventila- 


tion design package £25 (for Sharp 


PC1251 & PC1211). Applications 

written for you. Wholesale/Retai! 

Trade enquiries welcome. Tel: 01-370 
5125 for appointment. 















JAXREST LTD — 
Linton House, 
Catherine Street, Aston, 
Birmingham. 
Tel: 021 328 0543 
Sharp Service and Support 


NORFOLK 


GRASSROOT COMPUTERS 
25 Wellington Rd., Dereham. 
TEL: 0362 4640 














Specialist in sir nputinc 
Send tor details Of SIOCKDOX Ine y 
conn and tf orouan stock system wit! 


patos { Jther 


SCOTLAND 


a A 


micro change Itc 


5 Annfield Place, Glasgow C31 2XN 
Tel: 041 - 554 7623 
SHARP ALTOS SUPERBRAIN 
Call us for your software anc nardware 
requirements — We will tallor our data 


dase [oO 












meet aes 


LOWDATA SYSTEMS 


A division of Lowdon Bros. & Co. (Engin 
eers itd) PO Box 532, Blackness Roau 
Dundee, DD1 9JG 
Tel: (0382) 22314 


Full range of Sharp Equipment stocked 


STAFFORDSHIRE 


COMPUTER DISTRIBUTORS 
DISCOS LTD. 


East Cannock Road, Hednesford, Staffs 
WS11 5LT. Tel: Hednesford (05438) 2021-3 
MZ 3541 Business Computers, Peachtree 
Business Software, Financial Director 
Accounts Package, MZ 700 Wholesalers 


WALES 


STEVE'’S COMPUTER COMPANY LTD 
CASTLE ARCADE, CARDIFF. 
Tel: 0222 — 371578 
OPEN: Mon — Sat. 9 - 5.30 


For Components to Computers 





MICROCENTRE LTD. 


SYSTEMS, SOFTWARE 
SERVICE, SUPPORT 


28-30 Station Road, 
Bognor Regis, Sussex. 
TEL: 0243 827779 


PROGRAM 1 


For Business Software 


35 Albion Street, Hull. 
TEL: 0482 20022 






FOR DETAILS 
ON ADVERTISING IN 
MICRODEALER 
FEATURES — RING 
01 - 437 0699 














COMMODORE jiilesste@)d) ¥:VA a. 


Aut ted Busi Equi t 
LANGUAGE Commodore BASIC Automated Businers Eaupmen 
DISC Twin in-built floppy drives CAM specialist or industria 
KEYBOARD QWERTYWCURSORM NUMERIC MFUNCT and planned maintenance. 


DISPLAY TV __( MONITOR SUPPLIED 
HERTFORDSHIRE 


INTERFACE PARA SERIAL ¥ BUS 
Alpha Business Systems Ltd 


GRAPHICS BLOCK USER (© 
LINE 0 RES 80 by 25 
COLOUR 16 TEXT 80 by 25 
SOUND Three channels 
Church Street, Industrial Area, Ware, 
Herts. Tel: 0920 68926 
Specialists in recommending and 
supplying complete systems for small 


| Notes. The Commodore 720 is the top model in the 700 range 
businesses. 














of business machines. It is built round the 6509 processor, but 
there is a dual processor (Z80 or 8088) option. The machine 
has been designed to meet the IEC specifications. The black- 
and-white monitor screen is integral and features tilt and 





‘swivel. The keyboard may be detached. The dual disc drives 
are built-in to the main housing and use DMA transfer, in- LANCASHIRE 


creasing speed. 


ANNO RNIN RE NOAH RGN 






COMMODORE BUSINESS 
SYSTEMS 


Commodore Home Computers 


Software avd Hardware 
01 - 228 1637 
2/4 Oxford Road, Manchester 
M1 5QA (Opposite BBC) 


me} jele). 


MAYFAIR MICROS 


for a full range of Commodore 

equipment at very competitive 

orices. 5th Floor, 65 Duke Street, 
London W1. Tel: 01-629 2487 


TYNE & WEAR 


KEY COMPUTER SERVICES 
LIMITED 

Micro Computer solutions to everyday 

business problems. 


Osborne House, 28 Osborne Road, 
Newcastle upon Tyne NE2 2AJ. 
Telephone: (0632) 815157 


Directors: J. Sowerby, V. Shepernson 
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COMMODORE 64 


MEMORY 64K RAM 26K ROM 
LANGUAGE PET BASIC 


CASSETTE 300 baud 
DISC extra DOS | WALES 
KEYBOARD QWERTYMCURSORIM NUMERIC CIFUNCT iy 
| DISPLAY pig ii MONITOR SUPPLIED 
INTERFACE PARA &@ SERIAL WY BUS & 
GRAPHICS BLOCK (gy USER M 

LINE ()_ RES 80 by 25 SIGMA SYSTEMS LTD 
| COLOUR 16 TEXT 40 by 25 
SOUND Three channels | 266 North Road, CARDIFF 


Notes. The Commodore 64 is a 6510 based micro that can also Tel: 621414 

use Pascal, COMAL, LOGO, FORTH and PILOT. Programs Sea aiak ; er 
can be loaded from cassette recorder or disc drives, both me ar orised dealer for CBM 
extra, or cartridges. The various peripherals include printer, igital, ICM, ACT, Sirius & 
joysticks and games padd] 









Apricot 


WEST MIDLANDS 


MICRO BUSINESS CENTRE LTD 
Wolverhampton Computer Centre, 17- 
19 Lichfield Street, Wolverhampton, 
West Midlands WV1 1EA. Tel: (0902) 
29907 or 29021 
Complete range of Commodore pro- 

ducts always available 






























LUCAS 


LUCAS LX 








MEMORY 64K RAM expandable to 256K 
LANGUAGE Microsoft BASIC 
CASSETTE 3000r 1200 baud 
DISC Single or twin 54 floppy disc drives 

DOS CP/M_.2.2 (supplied) or NAS-DOS 
KEYBOARD QWERTY @CURSOR NUMERIC GFUNCT 
DISPLAY ‘TV: MONITOR(ASUPPLIEDLY 
INTERFACE PARAW SERIAL GY BUS LY 
GRAPHICS BLOCKY USERLY 

LINE O RES 392 by 256 


COLOUR 8 TEXT 80 by 25 


Notes. The Lucas LX is a Z80 microcomputer aimed more at 
the professional and business user. Hence 5M Winchester 
disc interfacing is provided. Popular printers may be used 
with the RS232 serial interface, and a Centronics interface is 
also provided. There is an additional parallel interface 
connector for providing up to 16 on/off signals. The monitor 
supplied as standard is a 12” monochrome version: a colour 
monitor is also available. The high res colour graphics may be 
392 by 256 in eight colours, or 784 by 256 in two colours. A 
wide range of applications software is available via the CP/M 
operating system, including Wordstar, Supercalc, and 
Calcstar. 


| 


ett 


- 





NASCOM 3 








MEMORY 48K RAM 10K ROM 
LANGUAGE Microsoft BASIC 
CASSETTE 3000r 1200 

baud 
DISC extra DOS CP/M or NAS-DOS 
KEYBOARD QW ERTYYCURSOR ONUMERIC O FUNCTC 
DISPLAY TV LY MONITOR WSUPPLIED 0 
INTERFACE Eee SERIAL LY BUSLY 
GRAPHICS BLOCKY USERLY 

LINEO RES 800 by 256 

COLOUR 8 TEXT 25 by 80 
SOUND Three channels 


Notes. The Nascom 3 is a Z80 based micro. A second version 
of BASIC and Pascal are also available, as are a cassette 
recorder and light pen. 
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HENRY’S RADIO 
404 Edgware Road, London W2. 
Tel: (0272) 421196 Tel: 01-402 6822 


80-BUS SOLUTIONS | | 80-BUS SOLUTIONS 


BUCKS NORTHERN IRELAND 


TARGET ELECTRONICS LTD 
46 Cherry Lane, Bristol. 



















BALLYCARRY 
NEWBURN CO ANTRIM 
6 days until 8 pm. Gemini, Galaxy 







Ainc y aw, ~ f tre tore ff) 
yascom. ACOrMM VCOMpUlels UWISCS 


AMERSHAM COMPUTER CENTRE 
48 Woodside Road, Amersham, Bucks. 
Tel: (2403) 22307 


80-BUS SOLUTIONS Pr 
WHITEHEAD 78330 


DEVON NOTTINGHAMSHIRE 
nascom 


S & R BREWSTER LIMITED 
86-88 Union Street, Plymouth PL13HG 
Tel: 0752 665011 Open: 6 days 


Mon tor S 


pr nters 


= ‘ z 2 P 
voriatr { nt fy / rt \/A ra 
Cc | ( j ° 
I1UStild WU PAY VU ) WVU 





wai 


PLYMOUTH’S 
DEALER 


COMPUTERAMA, (Skytronics Ltd.) 
357 Derby Road, Nottingham 
Tel: (0602) 781742 


-80-BUS SOLUTIONS 


DORSET SUFFOLK 


M. D. W. ELECTRONICS 
47 Woodbridge Rd. East, Ipswich 






PARKSTONE COMPUTER SYSTEMS 
Main Nascom Dealer & Service Centre 


Aliso Dealers for Gemini, Transtec, IP4 5QN. 
Genie Tel: (0473) 78295 
18 Station Road, Lower Parkstone, Nascom. Nasbus. Gemini, Mult 


Poole, Dorset BH14 8UB. 
Tel: PARKSTONE (0202) 746555 


board Stockists 


SURREY 








ZIPPY ELECTRONICS 


West Dorsets Nascom Dealer 

Business and Personal Computer 

Systems, Printers, Software. Tel 
Bridport (0308) 56539 


Mail Order Service operated 
Access/Barclaycard accepted. 












ELECTROVALUE LTD 
28 St. Judes Rd, Englefield Gn, Egham, 
Surrey. Tel: (07843) 3603 


80-BUS SOLUTIONS 

















| HUMBERSIDE WALES 


TOMORROWS WORLD 
The sole Nascom Agent for North 
Humberside 


EYTE-RITE 


Llandaff R & TV Ltd, 24-26 High St., 
Llandaff, Cardiff. Tel: 0222 563760 


LUCAS LOGI AL 


15 Paragon Street, Hull HU13NA. 
TEL: 0482 24887 


LANCASHIRE 


Nasco 


WARWICKSHIRE 


BUSINESS & LEISURE 
MICROCOMPUTERS 
16 The Square, Kenilworth, 
Warwickshire CV8 1EB 
Tel: 0926 512127 
We are the largest Lucas Nascom 
dealer in the UK and carry the greatest 
variety of products for this range of 
computers 













EV COMPUTING 
700 Burnage Lane, Manchester M19. 
Tel: 061-431 4866 


80-BUS SOLUTIONS 















LEEDS COMPUTER CENTRE 
55 Wade Lane, Merrion Centre, Leeds. 
Tel: (0532) 458877 


80-BUS SOLUTIONS 


OFF RECORDS 
Computer House, 58 Battersea Rise, 
Clapham Junction. Tel: 01-223 7730 


80-BUS SOLUTIONS 


SEE YOUR BUSINESS GROW 
PHONE ASP LTD ON 
01 - 437 0699 


Lineage: 35p per word. 


COMPUTING TODAY 
01-437 0699 


AN =& 


Semi display: £8.00 per single column centimetre 
Ring for information on series bookings/discounts. 


All advertisements in this section must be prepaid. 
Advertisements are accepted subject to the terms and conditions 
printed on the advertisement rate card (available on request). 


SOFTWARE 
APPLICATIONS 


48K SPECTRUM & BBC 


POOLS 
PREDICTOR 


An easy to use and very powerful fore- 

casting program using 6 different 

methods of prediction, based on 
analysis of current form. £4.99 


MAYDAY SOFTWARE 
Dept CT, 181 Portland Crescent. 
Stanmore, Middlesex HA7 1LR 


CORTEX — FORTH 


For fig-forth with extensions for 

Cortex Colour Computer. 16K 

Supplied in two 2564 Eproms. Re 
places 1st two Basic Eproms 


£35 INCLUSIVE 


LOMBARD SYSTEMS 
18 Lombard Street, Lidlington, 


Bedford MK43 ORP. 


TRS-80 MODEL | 
1500 BAUD CASSETTE 
SPEED-UP UTILITY 


Load and Save Programs at 3 times 
normal speed! 

e No hardware modes needed 

e Works on BASIC & SYSTEM 
programs 
Displgys program as it loads 
Programs can be upto 14. 5K long 

(16K Level II only) 


£7.50 inc p&p to: 


D JACKSON (Software) 
37 Sandhurst Road, Bexley, 
Kent. 

Tel: 01 - 304 3991 


DRAGON ADVANCED 
PROGRAMMER’S PACKAGE 


The most comprehensive FORTH im- 
plementation on the market, suitable 
for 32K and 64K. Includes the language 
itself which can access Basic com- 
mands, powerful text editor, 6809 
macroassembler, extensive documen- 
tation and the fig-FORTH Installation 
Manual. Plus: Dragon Companion 
Book containing full 6809 dissassemb- 
ler, extensive memory map, many tips 
to get the most from your Dragon 

Excellent value at only £15 inc 

M & J Software, 34 Grays Close, 

Scholar Green, Stoke-on-Trent. 

(0782) 517876 


COMPUTING TODAY FEBRUARY 1984 








SOFTWARE 
LANGUAGES 






FORTH for NASCOM'’s, 32K min, 
written in Z80 code (NASCOM 1 
with NAS-SYS and Cottis Bland- 
ford). Supplied as a tape based 
system (pseudo disc in RAM). 


BackFORTH features include: 


Editor, screen and line based 
modes. Versatile debugger to 


enable single stepping through, 


FORTH secondaries or machine 
code. Macro assembler. Z80 style 
mnemonics and high level 
constructs. 32 bit integer extension 
Hashed directory, enabies fast 
searches for the 380+ words. Inter- 
faces to NAS-SYS routines. The 
documentation (approx 150 
pages) includes glossary, source 
listings, memory map and defini- 
tions to provide figFORTH simu- 
lation. Available now at £28.75 in 
Cclusive or send SAE for further 
details 
Dept CT1, Southdown Computer Ser- 
vices, Manresa, Cooksbridge, Lewes, 
East Sussex BN8 4SP. 


SOFTWARE 
GAMES 


GROVE SOFTWARE 


Games for the Jupiter Ace 
with 16K 
TBT Mastermind + Bomt 
TBT 2 Pairs + Submarines 
£5.50 each inc p&p 
SAE for Catalogue 
Cheques and POs to 
GROVE SOFTWARE 


2 Grove Court, Oakfield Road. 
Penge, London SE20 8RG. 





ATOM OWNERS BEWARE. The 
swarm approaches. Destroy their 
dynamic waves or be doomed. Hall 
of Fame, sound, m/c 12K. £4.95. 
M.J.R. Software. 
Avenue, Leicester 


SOFTWARE 
>) tley Wale) FUE 


ISIS VIDEO 


Specialists in Educational Software, 
Software and  Textbooks/Software 
Packages from ABC to A-Level. Many 
major publishing houses included in 
our comprehensive catalogue covering 
most popular home and_=e school 
computers. Ring Fiona Brooks now on 
01 - 549 9305, or write stating model to 
Isis Video (Dept CT), Crown Works, 


Church Road, Norbiton, Kingston, 


Surrey KT1 30B 

























4 Fulbeck 


Send your requirements to: 
MARK BECAREVIC 

ASP LTD, 1 GOLDEN SQUARE, 
LONDON W1 


CHILTERN ELECTRONICS 


Amazing Value in Video Monitors 


Professional quality equinoment by AGC 


Sorp ideal for your micro. Look at inese 


eatures: * Superd resolution for graphics 
) col etc * Bandwidth 10hz-22Mhz * 
Green Screen P31 phorsphor * Ant: 


Omposit€ video mains operation 
Available in 9" Model HM911 £85. 
12” Model HM123 £89. 
FANTASTIC KEYBOARD BARGAIN!! 
Scoop purchase allows us to offer a 49 
key QWERTY layout, ASCII encoded 
keyboard. Fully cased, used but 
guaranteed working. Full logic 
diagrams and information supplied 
ONLY £15. Add carriage £1.85 and VAT 


same day desr tc’ al 


couCcal wscounts. Ar Ss welcomes 
lest | sary Kent or 
'/ (1234 High Street, Chalfont St 
es, Bucks HP8 4HQ. Telex: 262284. 


BLANK CASSETTES! 


TOP QUALITY PROFESSIONAL 
BRAND COMPUTER/AUDIO 
CASSETTES AT BUDGET 

PRICES 


Noxes of 10) assettes 


{ 
+ 


Gil 





Length Box Qty 
Price 
(10) 

5 min £4 85 

10 min £4.90 

12min £495 

15min £5.00 

30 min £5.20 

60 min £5.80 

90 min £7.50 


Cheque/Postal Order enclosed for £ 
NAME «fice 
ADDRESS 


Cassette House, 329 Hunslet Rd, Leeds. 
Tel: (0532) 706066 


TRADE ENQUIRIES WELCOME 





NEWBRAIN 


The professional micro computer for 
the price of the hobby machine 
Delivery free. Call us for very special 
offer. Mail Order. Access 
Call Stevenage (0438 812439) 
Anytime for the latest details of 
Newbrain Hardware, Software, Books. 
“Newbrain Dissected” Book £9.00. tape 
£9.95 and both £18.45. “Getting More 
from your Newbrain” £7.50. All include 
p/p. Epson, CPAT, Juki & KDC printers 
monitors & recorders. Chess £14.95 


ANGELA ENTERPRISES 


4 Ninnings Lane, Rabley Heath, 
Welwn, Herts AL6 9TD. 


FUTURE 
TECHNOLOGIES 


(ETI) 1 Hollybrook Road, Shirley, 
Southampton SO1 6RB 
CBM 64 Computer....... 
80 Column Board for 64 
with cassette & 2 blank tapes ... 
VIC 20 starter pack 
Cassette alone £44.90 Tapes £1 ea 
Spectrum 16K £99.95 48K £129.95 
Also Atari, Texas, accessories, soft- 
ware Cheque/PO with order 
Send large SAE for lists (23p stamp) 
Ad £1 P&P for orders under £50 
All prices include VAT 










































ELIMINATE 
FAULTY 
CASSETTES 


















DataClone is the first 
company in the UK established 
specifically for the duplication 
of data cassettes 










All other duplicating houses 
are audio orientated — only 
DataClone has a duplicating 
system designed from scratch 
purely to handle computer 
Information 


The result? 







Greatly improved reliability in 
data transfer rates from 300 to 
beyond 2400 baud — pre- 
viously unattainable 








All formats catered for. 
Quantities from 100 to infinity. 


Contact us now for brochure 


DataClone — _ the | first 
specialist service for computer 


t 
cassettes 























DATACLONE 


Unit 1, Roslin Square, Roslin Rd., 
Acton, London W3. 


Tel: 01-723 0477 Telex: 21879 





WHICH COMPUTER? Hobbyist 
or Business. For individual assess- 
ment from non-dealer forward €3 
together with name and address to: 
C & S Advisory Services, 144 
Sutcliffe Avenue, Grimsby, South 
Humberside DN33 1AP. 


SPECTRUM 48K. Brand new plus 
five games cassettes. £115. Tel: 
evenings 061 748 2175. 
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ADD-ONS 





FOR SALE 


NASCOM-2 NAS-SYS-3. 32K | NASCOM 1, Hobbit micro- 


LIBRARIES 


THE MZ80K/A 



















SOFTWARE LIBRARY PEN NAS-DRAW 8K Basi graphics, Eprom programmer etc. 48K and 16K SPECTRUM 


EPSOM CARD (4K) 


Choose from 150 titles. These in grapnics PSU. fulldocumenta-tion £195 ono. Macclesfield (0625) The Eprom Card uses spare ROM 
clude exciting Arcade Adventure apes. £330 ono. Phone eve nings 72988 Evenings space. so normal operation. of 


Spectrum is not affected. Prices: Edge 
Connector Version (plugs directly into 
Spectrum £21.25. Motherboard 
Version £18.50. CTR Motor Controller 
Option + £3.45. Plug in RAM + Adaptor 
£9.95. Programmers Eprom (£9.95) 
Ten Top Quality, User-Friendly 


games, and Educational/ Business 
applications. Once only member- 
ship fee. £5.00. Hire charges only 
90p per 14 day period. Plus your first 


5 games FREE. Send now for free 




















FOR MEN! 


VASECTOMY 


Everlasting alternative to the Pill. 
No fuss. No waiting lists. One visit Low cost. In 


SHARP MZ80K software for sale. 
Worth £100 plus. Only £30 the lot 
Phone 01-472 1331 for details. 






illustrated catalogue to mma =oon ee bate : Routines. Right & Left Scroll, Size, 

: , UTHAMPTON Memory, Renumber (inc. GOTO, 

The Yorkshire Software Library, TANGERINE MICROTAN, Tan- LEEDS NEWCASTLE SWANSEA GOSUB etc), Variables Dump, Word 
13 Park Top, Pudsey, ex, hi-res graphics board, Basic, X perpen cece: Aa s processor, Block Delete, Sprite (Uni- | 

5 i ae a pe : ite today ookilel Dy return ain cover Or phone versal Character Printer), Graphics 

Yorkshire LS28 6BY a a or “ee ah Ono LONDON 01-388 2585 Set. New! ZX Spectrum (Eprom Pro- 

msey (UaMNDS) Oolooe grammer £28.75) and 25 volt P.S.U 

LEEDS 0532 440685 (£7.75). Dissassembler Eprom (£9.95). 

te MANCHESTER 061 832 4260 Also available ZX81 Epsom Card, 











CARTRIDGE CITY will rent Atar 
400 and 800 owners cartridges at 
low rates. Discounts on software 





Programmer and Toolkit Eprom. SAE 
please for extra details. P&P 75p (UK) 
£2.00 (overseas). Orme Electronics, 2 


ol Sa ae 







Hard disc drive symbiotic 5 
D 


meaabite Wincheste lus eg RSIS Gane ce cee oneeae ia weet ae Seep Sys: I ers 
medgadile VvINncnester Us 
















yurcnases etails from Cartridae Ap yle ll interface formatted ce ae NS Oe ee eae 8 Barripper Road, Camborne, Cornwall. 
P r ae D i Is tr ym Cartridg Df UE, si cane : saris Bisbas euee, Tel: 0209 715034 or 087 257 2842 
ty ed j3a!ltside Drive, Aberdeen JTers On va | 108 Whitfield St., London W1P 6BE 

AB1 7BH Caring clinics since 1925 





TEL: Weymouth (03057) 74447 


When placing your ad, please state classifi- 
cation required. 35p per word. 

Send to: ASP Classified, 1 Golden Square, 
London W1. 


Tel: 01 - 437 0699 









OF wee erly ea a ee OC OS: CR. on ee a eT ey a Re oe ee oe ee 

oo ae Se Be 8 ee 8. re Oe ee a ee ee ee a ee 

ee ee. hs ee el a ieee ee oe a ee ae Soo Se Pa es Le Oe RS Oe Re eee (Se os 
é aie eee? we ieee ee OR a Bee 8 et ee eee ee Sw BOSS OR ae ee ee ee 


ei SPlwe ee Ae ie: oe Se, Be ee oe ee ON eee ee eS eS 


issues Commencing as soon as possible 





Please place my advert in COMPUTING TODAY for 


MAIL SEND LARGE 

THE LONDO ABEL citi. Stn 

A ° SPECIALISTS INSTANT CREDIT 
+ FOR CALLERS 





Omputers 


A SELECTION FROM OUR EXTENSIVE STOCK 
*x TEXAS SPECIAL OFFER PACKAGE 


T199/4A Computer + Extended Basic including Delivery £165.95 


Protek Spectrum Joystick Interface £14.95 inc. P&P. Uses most 


ZX Spectrum & BBC Upgrades 


Now in stock DRAGON DISC DRIVES £275.00 + £5. Delivery 


New low prices on Texas 1199/4A. Contact us first 


whe; ste: se: sive, ste dem em thm, tem, hem sem ee ee. 
Sn: sie: sm) sania sin; len sonien alen, iene, lon, ‘aim, ae, si, em 
jas) savin) sian sain; in; yin sali, salon, em, gms, salen, seni, 


Are you short of a cassette recorder for Xmas — for your computer 


CONTACT US,, 


send Cheque with order made payable to AB & C Computers 


Duchy House, 6 Lower Aylmer Square, St Austell, Cornwall. 
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BERKSHIRE 


ICrO PRINTER 
eneral SPECIALISTS 
Call for advice on printer selection 


Epson & Microline stockists. Interfaces & cables 
available for all popular micros 
6 THE BIRCHWOODS, TILEHURST, READING. 


oD TEL: 0734 25226 





Churchfield Ra., 
Frodsham. 











ewbrain., Dragon 32. t 
ries, Easy parking off M56 


Lomputer 
dunk Shop 


We Buy, Sell, Break Computers & Peripherals 
10 Waterloo Rd. Widnes. Halton. Tel: 051 420 4590 
. 


CORNWALL/DEVON 


A.B. & C. COMPUTERS (CT) 


Duchy House, 6 Lower Aylmer Sq., St. Austell. 
Tel: 0726 64463/67337 
Wide range of popular Micros, Printers, books and 
accessories. We stock all U need — try us first for 
service and competitive prices 








A 
- 


PLYMOUTH’s hascom 
DEALER 


S & R BREWSTER LIMITED 
86-88 Union St., Plymouth PL1 3HG. 
Tel: 0752 665011 Open: 6 days. 









DORSET 












ZIPPY ELECTRONICS 


Wes: Dorsets Nascom Dealer 
Business and Personal Computer Systems. 
Printers. Software. Tel: Bridport (0308) 56539 
Mail Order Service operated 
Access’ Barclaycard accepted 


HERTFORDSHIRE 


NEWBRAIN SPECIALISTS 
HARDWARE & SOFTWARE 
Printers, Epson, Shinwa, Juki etc. Monitors, Tape 
Recorders, Books, Expansions, CP/M. Mail Order, 
Access. 2 new books — see eae ad for details 









Ness in stock : 


Cr 
ANGELA ENTERPRISES 
Tel: Stevenage (0438) 812439 anytime 


NORTH KENT 


MEOUWAY COMPUTERS 


141 NEW ROAD, CHATHAM. = 


Tel: 0634 826080 
Open Mon-Sat 10 - 5. Closed Weds. 
Most computers and software stocked 
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LANCASHIRE 





51 QUEEN STREET, MORECAMBE. 
Tel: 411 435. Also open Sundays. 


Acorn/BBC + Dragon 


o n ~ d 
A try nricc 


LEIGH COLOUR 
LABORATORY LTD 
87 Chapel St., LEIGH, 
Tel: 0942 607661 
Open: 9 — 5.30. 


29 Hanging Ditch, Manchester. 
Tel: 061 832 2269 
Open: Mon-Fri 9.30am-5.30pm. 
Sat 10-5. Retail and Wholesale. 










SHARP CENTRE Mi 
16 Melville Street, 
Lincoln. 

Tel: Lincoln 32379. 
Open: 9am-5.30pm closed Wed. 


dial bed COMPUTER SHOP 


404-406 Edgware Road, London W2 1ED. 
Tel: 01-402 6822 


Open: 6 days a week. Order by phone or call 
in and see for yourself 


FUIE SHOP comPuterRcano 


324 Euston Road, NW'1. 
Tel: 01-387 0505. 
Open: Mon-Fri 9am-5.30pm. 
(C.R.A. member) 


SHA 














SOUTH LONDON 


CROYDON COMPUTER CENTRE 


29a Brigstock Rd., Thornton Heath 


Surrey. Tel: 01-689 1280 

BBC, Acorn, NewBrain, Genie, Oric 
Kaga Microvitek Zenith Monitors. OK 
80, 82A + 84 Printers. Paper Ribbons 


Software etc. etc. BUY/HIRE 





MIDDLESEX 





L.B. ELECTRONICS 
11 Hercies Rd, Hillingdon. 
Tel: Uxbridge 56399 (24hr ans. service) 


Open: 6 days, 9.30am-6pm, (lunch 1-2.15 except Sat) 
Surplus equipment, memory, EPROMs etc. Also 
established mail order service 





NORFOLK 


ANGLIA COMPUTER CENTRE 


88'St Benedicts Street, 
Norwich. 
Tel: (0603) 29652 /26002. 
Open: 6 days 9am-5.30pm. 


NORTHAMPTONSHIRE 


NORTHAMPTON 
HOME COMPUTER CENTRE 
58A Wellingborough Road, Northampton. 
Tel: (0604) 22539 


Open: 6 days a week from 10 - 6 








NORTHERN IRELAND 


NEWBURN co kntein 

Co. Antrim 
6 Days until 8pm. Gemini. Galaxy. Nascom 
Acorn Computers. Discs, monitors. printers 
servicing, hire. Industrial Control. Accounts 


U 
LA 
Word Processors etc 


WHITEHEAD 78330 


SCOTLAND 


VICTOR MORRIS GLascow 


TANDY TRS 80, VIC 20, VIDEO GENIE, APPLE 
PANASONIC, CUMANA, EPSOM ETC. 








340 Argyle Street, Glasgow G2: 041 221 8958 


STAFFORDSHIRE 


COMPUTER CABIN 


24 The Parade, Silverdale, Newcastle. 
Tel: 0782 636911 


VIC-20. ZX81 hardware and software. BBC, Atom, 
Spectrum software. 
























3 YVIN 
Cid 
56-58 South Street, 
Eastbourne. 

Tel: Eastbourne (0323) 639983/20496 
Open: 6 days YJam-5.15pm. 






24 Gloucester Road, Brighton. 


Tel: 0273-698424. 
Open: Mon-Fri 10am-5.30pm, 
Sat 9Jam-5.30pm. 





TYNE AND WEAR 


HCCS associates 
533 Durham Rd., Low Fell, 
Gateshead. Tel. Newcastle 821924. 
Open: 6 days 9am-5.30pm (Sat 
10am-5.30pm). Specialists in: Acorn, 
BBC, Video Genie, VIC 20. 











73 


LUMPUTAMART 





AT A GLANCE...AT A GLANCE...AT A GLANCE...AT A GLANCE...AT A GLANCE...AT A GLANCE... 


WALES WARWICKSHIRE WARWICKSHIRE 


SIR Computers Ltd. @EM []licioLenire 


7 | OEM COMPUTER SYSTEMS 
eta pnt eta 9.11 Regent Street, Rugby CV21 2PE, 
B08 Prc000 Tel: (0788) 70522/3/4 


THE FINEST COMPUTER SHOWROOMS IN THE MIDLANDS 














BUSINESS & LEISURE 
MICROCOMPUTERS 
16 The Square, Kenilworth.  { ua 
Tel: Kenilworth 512127. SS ee 
Open: Mon-Fri Qam-5bpm. % day Thur 
(junch 1-2). Retail and Wholesale. 

























CARVELLS OF RUGBYLTD 
3/7 Bank Street, Rugby CV21 2QE 
Ras lend vitgedalnd-c td vi ra eral A 


VVeE als 








STEVE’S COMPUTER COMPANY LTD 


CASTLE ARCADE, eal 
Tel: 0222 — 371578 


BRADFORD'S COMPUTER 
SHOP 





at Thomas Wright (Bradford) 

Ltd., Thorite House, Laisterdyke. 
Tel: Bradford 668890. 

Open: Mon-Fri 8.45-5.30. (Sat 12am) 









OPEN: Mar — Sat. 9 — 5.30 
FOR COMPONENTS TO COMPUTERS 


aor 64 Sine alr «8 /Spect mM Se ( Atar! 


RO ivett: Printer 









Tel: g he 65275/6 


a Please’ include my business details in ‘the next available issue of Co mi puting Today: ’ 
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DRAGON 32 
OWNE 


Make your Dragon turn into a real computer with the new 
Double-Density Delta Disk System. 
The Delta Disk System Gives You... 


® An affordable disk system. 
® Powerful Delta disk commands. 
® Lets you produce and handle random access 












files as easily as serial files. ® The price you see is the price you pay. 

® Random sequential and indexed file handling. NO HIDDEN RAM upgrade costs. 

® Simple plug into Dragon ® Uses under 2K of user — RAM as DELTA 
there are no HARDWARE MODS needed to run DELTA! is held in EPROM. 

® Easily expandable 180K to 1.4 megabyte ® Enables programmer to easily produce 
ON LINE storage. applications Software which automatically 

® Full range of business utility and games starts up and operates without any 
software AVAILABLE NOW! intervention from the user. 


DELTA CARTRIDGE — contains DELTA disk Operating System, User Manual, demonstration diskette.. £420.00 
DELTA 1 — DELTA Cartridge, User Manual, a single-sided 40-track (480K) drive pluscable......... £320.00 
DELTA 2 — as DELTA 4, but with a single-sided 80-track (360K) drive... eee ce eee eee £355.00 










Disk interface cable (supplied with DELTA 4 OF 2)... ccc ccc cece ceveveveeveese £9.95 
ENCODER 09 assembier/disassembler/editor — integral with DELTA. ............. 0.0. cece eee. £24.95 
HOME ACCOUNTS full home package for DELTA... 6... ccc ccc cece ev eveneneeeee £14.95 






INFORM — Data Base Management System commissioned especially for DELTA Systems ........ 






PREMIER'S ASTONISHING NEW TOOLKIT FOR THE DRAGON 32 PERFORMS THE FOLLOWING AMAZING FUNCTIONS: — 












@ FULL screen editor allowing copying, concaten- become built-in as soon as you plug in the 
ating of lines etc. Fully linked to the DRAGON'S TOOLKIT cartridge. 
line editor. @ VARIABLE GOTO/GOSUB commands, allowing 
@ Eight PROGRAMMABLE KEYS - all easily routines to be called by name. Eg GOSUB TITLE 
accessed or checked. or GOTO FINISH. 
25 full colour low-resolution graphics screens @ Superb TRACE command which uses top right of 
T L available with commands for instantly writing to screen only, thus leaving graphicsitext intact. 
any of them or swopping/moving. MAKES @ SEARCH and REPLACE commands for easier 
COLOUR ANIMATION AT MACHINE CODE SPEED program modification. 
FOR “es a ee © Comes complete with COMPREHENSIVE 40 + 
Full range of ERROR HANDLING commands with page MANUAL. 
several RESUME options. 
rel 4 AGON 32 @ OVER SIXTY NEW WORDS fully linked to your Available in CARTRIDGE or DELTA enhancement 
DRAGON BASIC — your new commands format .£29.95inc. 


@ DRAGON Fig FORTH ON DISK FOR DELTA @ Executes up to 10 times faster than BASIC @ Language extendable by 
user defined words @ Words can even be defined using the FORTH assembler for maximum speed e BASIC and 
DELTA commands still available from FORTH @ Source code stored and can be compiled from disk @ FORTH can 
be saved to disk, including any new definitions ONLY £29.95 including MANUAL + Fig FORTH glossary + Model. Inc. VAT 








SCRIBE FOR THE DRAGON 32 ENCODER 09 FOR THE DRAGON 32 HIPRINT FOR THE DRAGON 32 
@ FULL UPPER and LOWER CASE direct from the keyboard. ENCODER 09 - is a fu!l symbolic assembler using HIPRINT — screen dumper. 
®@ An enlarged 42 x 24 screen display which gives standard mnemonics and pseudo op-codes. Source 

a superb READABLE text. code can be incorporated into BASIC programs. - will dump the entire contents of your DRAGON 32 
® Full text display on hi-res screen. The monitor section contains commands to allow high-res screen to a high resolution printer. Can be 
® Automatic underline and reverse image. memory display, modification and execution. used for design, display etc (see left). Available at 
® Up to 255 user-defined graphics. Memory block move, breakpoint handling, full present for EPSON/MICROLINE/SHINWA. Other 
® Precision character position command giving disassembly and a full editor are only a few of its modules to follow shortly. 

super/subscripts. many features. The most powerful assembier/- Tape £7.95 DELTA disk £9.95 
@ Black on white text display option. disassembler/editor available for the DRAGON 32. 
@ A new Print @ command extending to 1008 thus Available as either an integral DELTA fitment or in 

almost doubling screen area. cartridge. 

Tape £14.95 — Disk £15.95 Cartridge £29.95. Disk - see above. 








Access 
PREMIER MICROSYSTEMS —w POSTAGE and PACKING 
208 Croydon Road, A , London Tapes 1-2 95p, 3+ £4.25. 
Telephone 01459 T138 or 778 1706 Cartridges $20 
Dealer and export orders welcomed. Drives or Disk packages £4.50 
ALL PRICES INCLUDE VAT. 


VISA 
MICRO@SYSTEMS TON OASIS yl 
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SUPERSOFT, Winchester House, Canning Road, Wealdstone, Harrow, Middlesex, HA3 7SJ Telephone: 01-861 1166 
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